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About this book 


The /SPF and ISPF/PDF Primer introduces you to ISPF and ISPF/PDF. These two products work together to 
help you manage and develop interactive applications (or dialogs, as ISPF calls them). The Primer shows 
you how to develop and test each element of an ISPF dialog, and how they all work together. You can 
re-create the sample dialog we use in this book to get some practice, or you can use it as a guide to design 
an application you are working on. 


We’ve written the Primer for applications programmers who are familiar with VM/SP and CMS. If you’re 
also familiar with either of VM/SP’s command procedure languages, REXX or EXEC 2, that’s a plus. If you 
aren't, you can do your Coding in any of the high-level programming languages that ISPF supports. 


Because this is an introductory book, we won’t be discussing all of the ISPF services and ISPF/PDF options 
in detail. We’ll be working only with those few services and options that you need to actually create a 
workable dialog. In fact, that’s one reason why we think you'll like ISPF and ISPF/PDF — once you learn 
how to use a few basic features, you can start writing dialogs. (If you don’t have access to ISPF/PDF, you 
can use XEDIT to work on the sample dialog). 


About this book _ ill 


After you’re finished with the Primer, you can learn more about ISPF and ISPF/PDF from some of the other 
books in the product library. For detailed how-to and reference information, refer to: 


ISPF Version 2 for VM/SP Dialog Management Guide, SC34-4009 
ISPF Version 2 for VM/SP Dialog Management Services and Examples, SC34-4010 
ISPF/PDF Version 2 for VM/SP Guide, SC34-4011 
ISPF/PDF Version 2 for VM/SP Services, SC34-4012 
Other books you might want to look at are: 
VM/SP Interpreter User’s Guide, SC24-5238 
VM/SP Interpreter Reference, SC24-5239 


VM/SP EXEC 2 Reference, SC24-5219 
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Part One: Learning the Basics 


Part One of the Primer gives you some general information about ISPF and ISPF/PDF, and introduces some 
terminology that’s used in the ISPF and ISPF/PDF environments. It discusses some ISPF services, and 
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Chapter 1. Introducing ISPF 


This chapter tells you: 


i"der-var- Mmelr-lrele mE 

W"dar-tar- Mel t-UieleMat-ar-te(-)antcmmr- lace mua ar- alae lel—1— 
What ISPF services are 

How to invoke ISPF 


How to use the ISPF Sample Application. 
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What is ISPF? 
What is a dialog? 


What is a dialog manager? 


Invoking ISPF 
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Using the ISPF Sample Application 
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What is ISPF? 


ISPF is a dialog manager. Before we talk about what a dialog manager does, let’s find out what a dialog is. 


What is a dialog? 


A dialog is a “conversation” between a person using an interactive display terminal and a computer 
executing a program for a particular application. For example, you might develop a dialog to help the 
Personnel Department update employee records. 


Employee 
Records 
Dialog 
Processing 


Employee 
Records 
File 
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ISPF dialogs are made up of dialog elements. Some elements must appear in every dialog. Other 


elements are optional — they are used only for certain types of applications or certain kinds of processing. 


This chart gives you some information about each one. 


Dialog Element 


Function 


Panel Definition 


Functions direct the dialog’s processing sequence. For example, they invoke ISPF 
services, and build and maintain tables. They can be written as: 


@ command procedures 
— REXX 
= EXEG 2 
® programs 
— FORTRAN 
— COBOL 
— PL/I 
— Pascal 
— APL2 


An ISPF dialog can use several kinds of panel definitions. 


@ Selection panels display a list of processing options from which you can 
choose. 


e Data entry panels allow you to enter information to be processed by the dialog. 


@ Table display panels show you the data stored in a table. 


@® Information-only panels give you information about dialog processing, or 
provide help. 
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Dialog Element Description 

Message ISPF’s messages relay information about processing, and call attention to input 

Definition errors. 

Table Tables are two-dimensional arrays that store dialog data. They can be for 
temporary use, or they can be stored for use in future ISPF sessions. Not all 
dialogs use tables — it depends on the application’s requirements. 


File tailoring Some ISPF dialogs use file skeletons to produce output. File skeletons work like a 
skeleton fill-in-the-blank exercise — they put dialog variables into a file containing 
statements that control the output format. 


Dialog variable Dialog variables pass information among dialog functions and ISPF services. 


A dialog begins either by displaying a selection pane! to present the choices available to the user, or by 
invoking a function to perform some initial processing. When you write a dialog, you can decide which way 
is best; tt depends on the application’s requirements. 
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What is a dialog manager? 


A dialog manager provides different kinds of services to dialogs while they are running, and also controls 
the interaction of the dialog’s elements — you could think of it as an extension of the host operating system. 
For example, ISPF can issue requests for panels to be displayed, files to be searched, and screens to be 
formatted. It can verify, process, and store input, and it can create output files. ISPF can also function as a 
simplified data management system for data stored in tables. 


The chart below shows the general ISPF dialog management service categories, and the dialog elements 


with which they interact. Within each category, there are many services, each one performing a very 
specific function. 


File Tailoring File skeletons 


ISPF provides other kinds of services, too. For example, ISPF’s graphic services help you add graphic 
areas to panels you create. The LOG service writes messages to a log file that you can browse to keep 
track of what happens during an ISPF session. 


There are many other ISPF services, but we won’t be describing or using all of them in this book. We'll 
give you the basics here, and you can explore the rest of them later. For more information on all of ISPF’s 
services, see Dialog Management Services and Examples. 
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Invoking ISPF 


ISPF is invoked by the ISPSTART EXEC that is shipped with the ISPF product files. This EXEC contains 
FILEDEF statements for the ISPF product files. Your organization may have different or additional file 
requirements; before you try invoking ISPF, check with someone else to be sure you have everything that’s 
required. Here’s an example of an ISPSTART EXEC: 


/*ISPSTART EXEC a? 
trace’ Error 
argstring = 
if arg() >O Then arg argstring 

JEEP ERE EEE RD POR ee Ble i te Rete eM te Tee Oe Ree oe Dee een oe eR a on ae Me 


/*  ISPPROF is the user profile library. my 
/* Each ISPF user has a profile that is a s 
/* generated and updated while ISPF is running. ae 


'FILEDEF ISPPROF CLEAR' 

'FILEDEF ISPPROF DISK ISPNULL TABLES A (PERM' 

J PERSE EALELE ERE ELAS EERE REE RA AEA AE RR A Re ee ee 
/*  ISPPLIB is the panel library. a 

'FILEDEF ISPPLIB CLEAR' 

'FILEDEF ISPPLIB DISK ISPPLIB MACLIB * (PERM CONCAT' 
I BR A | 
/* ISPMLIB is the message library. i 

'FILEDEF ISPMLIB CLEAR' 

'FILEDEF ISPMLIB DISK ISPMLIB MACLIB * (PERM CONCAT' 
GRE EI RRR RR RS ER RR RR I ee Ae Be Pe Rae ee 
yj. ISPOLIE 1S the skelevon tJ1brary. av 

‘FLLEDEF ISPSLIB CLEAR" 

'FILEDEF ISPSLIB DISK ISPNULL SKELS A (PERM' 

J TR PI FI Te Ree Ge Re RS eee eee Des Dee Dee Oe mate a ee ae ee ee ees te pe 
/* ISPTLIB is the table input library. ad 

'FILEDEF ISPTLIB CLEAR' 

'FILEDEF ISPTLIB DISK ISPTLIB MACLIB * (PERM CONCAT' 
Fa ae 
/*  ISPTABL is the table output library. ued 

'FILEDEF ISPTABL CLEAR' 

'FILEDEF ISPTABL DISK ISPNULL TABLES A (PERM' 
BRR Ra eee en eee eee ay Oe ee ee Re ee ee ee 
/*  ISPFILE is the file tailoring output library. */ 

'FILEDEF ISPFILE CLEAR' 

'FILEDEF ISPFILE DISK ISPNULL FTOUT A (PERM' 

JO RARER EIS ORE Be ERA A ARRAS te De Ae ay De IS I Ae De ams ee ee, Ww Re Mean se I 7 

'ISPDCS ISPDCSS ISPVM DMMODE(*) 'argstring 

exit 


1-8 ISPF and ISPF/PDF Primer 


L. t t ; t y a ' f # 


f J 


i oe 


Beaenstseuaun ea B 


oS 8 


t ad a gy 


BReeaeaeneaeaseeaeseaeaeseeweeaeneraenmtaesaeas ® 


Notes: 


7. Inthe line that reads 


ISPDCS ISPDCSS ISPVM DMMODE(*) 'argstring 
ISPDCSS and /ISPVM are default names that may be different for your organization. 


2. Toimprove performance, you may want to replace the asterisks in the filemode with the /etter that 
represents the disk on your system where the ISPF product files reside. 


On the CMS command line, type 


ispstart 


That command invokes either the ISPSTART EXEC that is shipped with the product, or the one your 
organization has tailored for its use. Your organization may also use a different name to invoke the EXEC. 


The ISPF Master Application Menu appears on the screen. 


ISPF MASTER APPLICATION MENU 


USERID JUDITH 
SAMPLE 1 Sample application 1 TIME 16:39 
; (Description for option 2) TERMINAL 3278 
(Description for option 3) PF KEYS 24 
(Description for option 4) 
(Description for option 5) 
EXIT Terminate ISPF using list/log defaults. 


Enter END command to terminate ISPF. 
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Using the ISPF Sample Application 


The ISPF Master Application Menu presents a sample application that helps you learn about ISPF. Let’s 
look at it briefly now. 


Select the ISPF sample application by entering “1” on the command line. The next panel that appears is a 
Sample Primary Option Menu. 


SAMPLE PRIMARY OPTION MENU 


JUDITH 
eae S| 
3278 
24 


USERID 
Specify terminal and user parameters TIME 
Create/change conmand table TERMINAL 
(Description for option 2) PF KEYS 
(Description for option 3) 
(Description for option 4) 
(Description for option 5) 
Display information about this applicatin 
Terminate ISPF using l|ist/log defaults. 


Q ISPF PARMS 
1 COMMANDS 
2 


TUTORIAL 
EXIT 


3 
4 
5 
= 
X 


Enter END command to terminate application. 


Select Option 0, ISPF PARMS, by typing ”0” on the command line of this panel. 
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This option allows you to specify certain parameters, including terminal type and PF key definitions, that 
are used to control your ISPF session. 


TERMINAL Specify 
LOG/LIST Specify 
PF KEYS Speci fy 
DISPLAY Specify 
boa Specify 


Select Option 1, TERMINAL. 


ISPF PARAMETER OPTIONS 


terminal characteristics 

ISPF console, log and list defaults 

PF keys for 3278 terminal with 24 PF keys 
screen display characteristics 

list file characteristics 
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The Terminal Characteristics panel displays default entries for terminal type, number of PF keys, and other 
information about the terminal you are using. If the default entries on the panel are incorrect, you can 
change them by typing over the incorrect entries. 


TERMINAL CHARACTERISTICS 


3278 (3277 3275/3277 terminal) 
(3277A 3275/3277 with APL keyboard) 
(3278 3276/3278/3279/3290 terminal) 
(3278A 3276/35278/3279 APL keyboard) 
(3278T 3276/3278/3279 TEXT keyboard) 
(3290A 3290 with APL keyboard) 


NUMBER OF PF KEYS (12 or 24) 


INPUT FIELD PAD (N - Nulls) (B - Blanks) (Special Character- 
must not be the same as COMMAND DELIMITER) 


COMVAND DELIMITER (Special character for command stacking) 
SCREEN FORMAT (Select one of the following:) 
(3278 Model 5 onl (DATA - Format based on data width) 
(STD - Always format 24 lines by 80 chars) 
(MAX - Always format 27 lines by 132 chars) 


(3290 only) (PART - Format using hardware partitions. 
Effective the next ISPF invocation.) 


Press PF3 (END) to return to the previous panel. Select another option — PF KEYS (Option 3), which 


displays the current ISPF values for the PF keys on your keyboard, and lets you change them if you want to. 


Or DISPLAY (Option 4), which lets you choose where you want the command input line to show up on your 
screen. 


When you’ re finished, press PF4 (RETURN) to return to the Sample Primary Option Panel (notice that you 
skipped over a panel — PF4 lets you skip over intervening levels of panels to return to the next-highest 
primary option panel. Otherwise, you’d have to keep pressing PF3). Then press PF3 twice and ENTER 
once to exit from ISPF. 
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Now that you’ve completed your introduction to ISPF, you can tell there’s much more to the product than we 
were able to fit into our discussion. However, you know enough about it to work on the sample dialog in’ 
“Part Two: Writing a Diaiog.” If you want to get more information, look at Dialog Management Guide and 
Dialog Management Services and Examples. 


If you’re going to use ISPF/PDF to work on the sample dialog, continue with Chapter 2, “Introducing 
ISPF/PDF.” If ISPF/PDF isn’t available to you, use XEDIT to create the necessary dialog elements. You can 


skip to Chapter 3, “Designing a Dialog.” The remaining chapters contain notes for XEDIT users that tell 
you how to proceed. 
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This chapter tells you: 
@ What the ISPF/PDF options are 
e How to invoke ISPF/PDF 


@ How to use ISPF/PDF’s edit option. 
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What is ISPF/PDF? 


ISPF/PDF is a dialog that runs under ISPF’s control, like any dialog you create. ISPF/PDF can help you 
develop dialogs and other types of applications online. We'll use some of ISPF/PDF’s options to develop 
our sample dialog. 


Here’s a brief description of each one: 


Option 0 - ISPF PARMS Lets you display and change ISPF parameters, such as PF key definitions and 
terminal characteristics, at any time during an ISPF session. 


Option 1 - BROWSE Displays program code, test data, or documentation; a convenient way to 
scan large files, such as compiler listings. 


Option 2 - EDIT Helps you create or change program code, test data, or documentation. 
Special features include edit macros that eliminate repetitive editing tasks, 
an XEDIT interface, and models that help you create dialog elements. 


Option 3 - UTILITIES Helps you perform system utility and file management functions, such as 
printing, renaming, deleting or browsing a file, moving or copying a member, 
and many other tasks. 


Option 4 - Interactively executes language processing programs, including assembler, 
FOREGROUND COBOL, VS/FORTRAN, PL/I, Pascal, and SCRIPT/VS. 
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ISPF/PDF Option 


Option 5 - BATCH 


Option 6 - COMMAND 


Option 7 - DIALOG 
TEST 


Option 8 - LM UTILITIES 


Option C - CHANGES 


Option T - TUTORIAL 


Option X - EXIT 


Description 


Generates and submits appropriate host system job statements and 
command streams for batch execution. 


Lets you enter CMS or CP commands, including EXEC 2 or REXX command 
procedures, while ISPF/PDF is running. 


Helps you test individual dialog elements or whole dialogs to make sure 
everything works the way you want it to. 


Helps you make Sure you’re working with the latest level of your 
development libraries, and controls who’s updating what. 


Keeps you up to date on changes that have been made to ISPF/PDF since 
Version 1 of the product. 


Gives you step-by-step assistance while you’re learning to use ISPF/PDF, or 
when you need to refresh your memory. 


Ends an ISPF/PDF session. 


ISPF/PDF also provides library access services that help you perform system utility functions on ISPF 
libraries or CMS files. And an edit recovery service helps you recover changes to a file after a system 
failure. For more information on ISPF/PDF services, see /SPF/PDF Services. 
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Invoking ISPF/PDF 


ISPF/PDF is invoked by the PDF EXEC that is shipped with the product. This EXEC contains FILEDEF 
statements for the ISPF and ISPF/PDF product files. Your organization may have different or additional file 
requirements; before you try invoking ISPF/PDF, check with someone else to be sure you have everything 
that’s required. 


Here’s an example of a PDF EXEC. Notice that the FILEDEF statements for the ISPF/PDF product files come 
before those for the ISPF product files. 


/*PDF EXEC * / 
trace error 
argstring = 
IF arg() > O then arg argstring 

JRE REL RT I Te TM ete RD Re Deed, Re Re Ie ae te Rede te Pe We ae ae Ae ay ae et 

/*  ISPPROF is the user profile library. x 7 

/* Each ISPF user has a profile. as 
'FILEDEF ISPPROF CLEAR' 


'FILEDEF ISPPROF DISK ISPNULL TABLES A (PERM '! 
[ROR KR RIK KR RR IK KOK RR IK IK RRR OK RR KK RK RK OR KK RR RR KICK / 


/*  ISPPLIB is the panel library. ad 
'FILEDEF ISPPLIB CLEAR' 

/* This is the ISPF/PDF panel library. ie 4 
'FILEDEF ISPPLIB DISK ISRPLIB MACLIB * (PERM CONCAT' 

/* This is the ISPF panel library. * 


'FILEDEF ISPPLIB DISK ISPPLIB MACLIB * (PERM CONCAT' 
[RRR IORI RR IOI RCI RCRA I III RRR I IT A HOR / 


/*  ISPMLIB is the message library. * / 
"FILEDEF ISPMLIB CLEAR' 

/* This is the ISPF/PDF message library. a 
'FILEDEF ISPMLIB DISK ISRMLIB MACLIB * (PERM CONCAT' 

/* This is the ISPF message library. ed 


'FILEDEF ISPMLIB DISK ISPMLIB MACLIB * (PERM CONCAT' 
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/*  ISPSLIB is the skeleton library. a 
"FILEDEF ISPSLIB CLEAR' 
/* This is the ISPF/PDF skeleton library. a7. 


'FILEDEF ISPSLIB DISK ISRSLIB MACLIB * (PERM CONCAT' 
[BR KR IRR RK RIOR RIOR RRR RRR IO ROR IK IRR RR IO I IK RO I KKK / 


/*  ISPTLIB is the table input library. ag 
'"FILEDEF ISPTLIB CLEAR' 

7/* This is the ISPF/PDF table input library. a A 
'FILEDEF ISPTLIB DISK ISRTLIB MACLIB * (PERM CONCAT' 

/* This is the ISPF table input library. ae 


'FILEDEF ISPTLIB DISK ISPTLIB MACLIB * (PERM CONCAT' 
ef 
/*  ISPTABL is the table output library. ad 

"FILEDEF ISPTABL CLEAR' 

"FILEDEF ISPTABL DISK ISPNULL TABLES A (PERM' 

JERSE E REELS PERLE OS Oe eR ee RON A I A eee a Ren a Ie Pte Rea re ee 
/*  ISPFILE is the file tailoring output file. a 

"FILEDEF ISPFILE CLEAR' 

'FILEDEF ISPFILE DISK ISPNULL FTOUT A (PERM' 
f* 

'ISPDCS ISPDCSS ISPVM PANEL(ISR@PRIM)', 

"NEWAPPL(ISR) DMMODE(*)' argstring 


“7 


exit 


Notes: 


1. 


2. 


In the line that reads 


ISPDCS ISPDCSS ISPVM PANEL (ISR@PRIM) 


ISPDCSS and ISPVM are default names that may be different for your organization. 


To improve performance, you may want to replace the asterisks in the filemode with the letter that 
represents the disk on your system where the ISPF and ISPF/PDF product files reside. 
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Invoke ISPF/PDF by typing 


pat 


on the CMS command line. That command invokes either the PDF EXEC that is shipped with the product, 
or the one your organization has tailored for its use. Your organization may also use a different name to 


invoke the EXEC. 


The ISPF/PDF Primary Option Panel appears on your screen. 


ISP PARMS. = 
BROWSE 7 
EDIT = 
UTILITIES = 
FOREGROUND - 
BATCH a 
COMMAND = 
DIALOG TEST - 
LM UTILITLES= 
CHANGES - 
TUTORIAL = 
EXIT = 


KANON AMNF&WNH— OO 


USERID 
Specify terminal and user parameters TIME 
Display source data or output listings TERMINAL 
Create or change source data PF KEYS 


Perform utility functions 

Invoke language processors in foreground 

Submit to batch for language processing 

Enter CMS command or EXEC 

Perform dialog testing 

Perform library management facility functions 
Display summary of changes for this release 
Display information about ISPF/PDF 

Terminate using console, log, and list defaults 


Enter END command to terminate ISPF. 
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Using the ISPF/PDF Edit Option 


This section gives you some practice using ISPF/PDF’s Option 2 to edit a CMS file. 


Select the Edit option (Option 2) by typing a “2” on the command line of the ISPF/PDF Primary Option Panel. 
The Edit-Entry Panel appears next. To create a new file, choose a name for it and enter the file ID as 
shown below. We call this file PURPLE PROSE A. 


ISPF LIBRARY: 
PROJECT 


===> ===> 
(Blank for member selection | ist) 


CMS FILE: FOR NEW CMS FILE OR ISPF MEMBER: 
FILE ID ===> PURPLE PROSE A_ RECFM ===> CF 
MEMBER ===> LRECL ===> 
IF NOT LINKED, SPECIFY: 
OWNER'S ID ===> DEVICE ADDR. ===> LINK ACCESS 


READ PASSWORD ===> UPDATE PASSWORD ===> 


PROFILE NAME ===> (Blank defaults to type) 


INITIAL MACRO EDITOR (PDF or XEDIT) 
LOCK XEDIT OPTIONS (YES or NO) 


FORMAT NAME = MIXED MODE (YES or NO) 


Press the ENTER key. 
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The next screen that appears is where you enter the following paragraph (or some text of your own choice): 


EDIT --- PURPLE PROSE A ' COLUMNS 001 072 
COMVAND ===> SCROLL ===> HALF 


When you finish entering the text, press the ENTER key. The cursor moves below the last line of input, and 


2-10 


sg kak gcacgke TOP OF DAT A ae cia iO a dO die ak 
The relentless wind hurled icy sheets of rain at the brooding 
windows of the crumbling 18th-century mansion where | was 

trapped in a hidden chamber | had discovered quite by accident 
when | pulled what [ thought was only a musty, dog-eared copy of 
"True Ghost Stories from the Middle Ages” off the shelf in 

the gloomy, cavernous library. 

Now, here | was, plunged suddenly into utter darkness, with 

only a foul-smelling book in my hands and, in my pockets, 
seventy-three cents’ change, a piece of chewing-gum foil complete 
with a much-chewed wad of stale gum, and a pen that had run out 
of ink the week before. How could I have known the terrors that 
awaited me as the heavy door swung shut behind me?_ 


doko ORO kkk kk acdcdkk BOTTOM OF DATA ok ie ok oe ok oka oe i ik Odi edi aa a Oak ak ake ae 
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EBIT =-=+ PURPLE PROSE A ==-===—<-+----~------------------------- COLUMNS 001 072 
COMMAND ===> SCROLL ===> HALF 
FOR Rk GIG TOP OF DAT A 2 oo Kk IGG kk dO IK kk ok 
000100 THE RELENTLESS WIND HURLED ICY SHEETS OF RAIN AT THE BROODING 

000200 WINDOWS OF THE CRUMBLING 18TH-CENTURY MANSION WHERE I WAS 

000300 TRAPPED IN A HIDDEN CHAMBER | HAD DISCOVERED QUITE BY ACCIDENT 

000400 WHEN [I PULLED WHAT 1 THOUGHT WAS ONLY A MUSTY, DOG-EARED COPY OF 

000500 "TRUE GHOST STORIES FROM THE MIDDLE AGES" OFF THE SHELF IN 

OO0600 THE GLOOMY, CAVERNOUS LIBRARY. 

000700 NOW, HERE I WAS, PLUNGED SUDDENLY INTO UTTER DARKNESS, WITH 

OOO0800 ONLY A FOUL-SMELLING BOOK IN MY HANDS AND, IN MY POCKETS, 

OOOS00 SEVENTY-THREE CENTS*' CHANGE, A PIECE OF CHEWING-GUM FOIL COMPLETE 
001000 WITH A MUCH-CHEWED WAD OF STALE GUM, AND A PEN THAT HAD RUN OUT 

001100 OF INK THE WEEK BEFORE. HOW COULD I HAVE KNOWN THE TERRORS: THAT 

001200 AWAITED ME AS THE HEAVY DOOR SWUNG SHUT BEHIND ME? 


yO kk ok kok ok OG Gk iti BOTTOM OF DAT A RRR Ok OKO iG ak ak ak ak ak ak 


— all the text you just typed is now in capital letters! To understand what caused that to happen, we have to 
look at the edit profile for this file. First, move the cursor back to the command line by pressing PF12. 


Using an Edit Profile 


An edit profile is a set of characteristics that defines the way you can edit a file. For example, a profile can 
be set up to edit data that’s all in capital letters, or to edit data that’s in mixed-case letters. 


ISPF/PDF generates a default edit profile based on the filetype you specify for a new file. Usually, the 
default profile is suitable for the kind of data you want to put in the file. Sometimes, however, it isn’t (as 
you just discovered). 
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To look at the edit profile for this file, type: 


profile 8 


on the command line. The default edit profile appears in the first eight lines of the file. 


EDIT --- PURPLE PROSE A COLUMNS 001 072 
COMVAND ===> _ SCROLL ===> HALF 
ok kok kt TOP OF DAT A 2 III aR iC aR ak ak aC ake ake ake 
=PROF> ....PROSE (FIXED - 80)....RECOVERY OFF....NUMBER ON STD 

=PROF> ....CAPS ON....HEX OFF....NULLS OFF....TABS OFF 

=PROF> ....ENDSAVE ON....AUTONUM OFF...AUTOLIST OFF....STATS OFF 

=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON 

=TABS> 

=MASK > 

=BNDS> < 

=COLS> ----+----1----+----2----+----§---+-+---- Aen a nt 6 tee J 
000100 THE RELENTLESS WIND HURLED ICY SHEETS OF RAIN AT THE BROODING 

000200 WINDOWS OF THE CRUMBLING 18TH-CENTRY MANSION WHERE I WAS 

Q00300 TRAPPED IN A HIDDEN CHAMBER I HAD DISCOVERED QUITE BY ACCIDENT 

000400 WHEN | PULLED WHAT I THOUGHT WAS ONLY A MUSTY, DOG-EARED COPY OF 

000500 "TRUE GHOST STORES FROM THE MIDDLE AGES" OFF THE SHELF IN 

OOO600 THE GLOOMY, CAVERNOUS LIBRARY. 

000700 NOW, HERE | WAS, PLUNGED SUDDENLY INTO UTTER DARKNESS, WITH 

000800 ONLY A FOUL-SMELLING BOOK IN MY HANDS AND, IN MY POCKETS, 

OOOs00 SEVENTY-THREE CENTS' CHANGE, A PIECE OF CHEWING-GUM FOIL COMPLETE 

001000 WITH A MUCH-CHEWED WAD OF STALE GUM, AND A PEN THAT HAD RUN OUT 

001100 OF INK THE WEEK BEFORE. HOW COULD I HAVE KNOWN THE TERRORS THAT 

001200 AWAITED ME AS THE HEAVY DOOR SWUNG SHUT BEHIND ME? 


YORE ORR kG Gi Giicccce BOTTOM OF DAT A x 2 kik kkk ak kaki aki ka i ai ak a aie ake a 


We won’t discuss everything that appears in the profile; to get more information about what you can put in 
an edit profile, refer to /SPF/PDF Guide. We do want to mention two things, though. 


First, we want to explain why everything you entered in mixed-case letters suddenly changed to upper 
case. The “CAPS ON” mode means that you can enter input any way you want (all lower case, mixed case, 
all upper case), but, when you press the ENTER key, or save the file by pressing PF3, everything you 
entered gets changed to upper case. That’s useful when you’re working with data that must be all upper 
case; for example, a COBOL program. But, for some files, it can be inconvenient. 


You might prefer to have the text in this file appear in mixed-case letters. You can change the profile to 
make that happen. Type: 


caps off 


on the command line, and press the ENTER key. 
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To clear the edit profile display from the screen, type: 


reset 


on the command line. The RESET command doesn’t take you out of the file; it simply gets rid of the profile 


display. 


Now, type over a line or two of the upper case text, the way you originally typed it in. Press the ENTER key. 


EDIT --- PURPLE PROSE A -~-------------~~~---------+------------ COLUMNS 001 072 
COMMAND ===> SCROLL ===> HALF 


de ok ok ok ok ok 
000100 
000200 
000300 
000400 
000500 
000600 
000700 
000800 
000900 
001000 
001100 
001200 


ee oe ok ok oe 


RR kkk kkk kik ia TOP OF DAT A 2k kk kaki a ak ako ak ak ak ak ak ak ak ak ak ak ak ak ake ake ake ake ae 
The relentless wind hurled icy sheets of rain at the brooding 
windows of the crumbling 18th-century mansion where I was 

trapped in a hidden chamber I had discovered quite by accident 
WHEN I PULLED WHAT I THOUGHT WAS ONLY A MUSTY, DOG-EARED COPY OF 
"TRUE GHOST STORIES FROM THE MIDDLE AGES" OFF THE SHELF IN 

THE GLOOMY, CAVERNOUS LIBRARY. 

NOW, HERE I WAS, PLUNGED SUDDENLY INTO UTTER DARKNESS, WITH 

ONLY A FOUL-SMELLING BOOK IN MY HANDS AND, IN MY POCKETS, 
SEVENTY-THREE CENTS' CHANGE, A PIECE OF CHEWING-GUM FOIL COMPLETE 
WITH A MUCH-CHEWED WAD OF STALE GUM, AND A PEN THAT HAD RUN OUT 
OF INK THE WEEK BEFORE. HOW COULD I HAVE KNOWN THE TERRORS THAT 
AWAITED ME AS THE HEAVY DOOR SWUNG SHUT BEHIND ME? 


BOR ROOK Oi iO ion ii iicicioigk BOTTOM OF DAT A x ae xk i ak ak ai ak ak ak ai ak ake aie ak ai ai ak He a ake de cake ae 


See the difference? 
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The other point we want to make here is about sequence numbers in a file. Use PF11 to scroll to the right 
side of this file. See those numbers over there? 


EDIT --- PURPLE PROSE A COLUMNS O09 O80 
COMVAND ===> _ SCROLL ===> HALF 
ROR OK kkk ok kkk ick TOP OF DAT A 822 ao oe oe koe kak i ok oka aia a ak aia ak ok 
000100 ntless wind hurled icy sheets of rain at the brooding 00000100 
000200 of the crumbling 18th-century mansion where I was 00000200 
000300 in a hidden chamber | had discovered quite by accident 00000300 
000400 ULLED WHAT |! THOUGHT WAS ONLY A MUSTY, DOG-EARED COPY OF 00000400 
000500 OST STORIES FROM THE MIDDLE AGES" OFF THE SHELF IN THE o00000500 
OO0O0600 MY, CAVERNOUS LIBRARY. OCOO0600 
000700 E I WAS, PLUNGED SUDDENLY INTO UTTER DARKNESS, WITH 00000700 
000800 OUL-~SMELLING BOOK IN MY HANDS AND, IN MY POCKETS, 00000800 
OOO900 THREE CENTS' CHANGE, A PIECE OF CHEWING-GUM FOTL COMPLETE 00000300 
001000 UCH-CHEWED WAD OF STALE GUM, AND A PEN THAT HAD RUN OUT 00001000 
001100 HE WEEK BEFORE. HOW COULD I HAVE KNOWN THE TERRORS THAT 00001100 
001200 ME AS THE HEAVY DOOR SWUNG SHUT BEHIND ME? 00001200 


FORO ki kk i iii BOTTOM OF DAT A x26 a ao oo kok oe geo ak oa ako ada ge ake ok 


They’re called sequence numbers, and they keep track of the number and sequence of the lines of data ina 
file. 


Use PF10 to scroll back to the left side of the file. Look at the edit profile again. In this edit profile, 
sequence numbering is “on” ("NUMBER ON STD”). That’s okay for certain kinds of data; PL/I programs are 
a good example. But (and this is an important point), when you are creating panels and messages for your 
ISPF dialog, you must be sure to set sequence numbering to “off” before you begin entering data 

(if the edit profile you’re using isn’t already set up that way). 


Here’s why. When you try to run the dialog, or try to use ISPF/PDF’s Dialog Test option (Option 7) to test 
the panel and message definitions, they won’t format properly, because the processing will read the 
sequence numbers as part of the definitions. You’ll get a message about “invalid characters” in the file, 
and no matter how thoroughly you review your input, you’|l forget that, over there to the right, where you 
can’t see them, are those sequence numbers.... 


So, save yourself a great deal of time — always check the edit profile before you begin to enter data ina 
new file, and make sure the defaults are appropriate for the kind of data you want to put in the file. 
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To get rid of the sequence numbers, type: 


unnum 


on the command line. Notice that NUMBER ON STD changes to NUMBER OFF in the profile. 


the right side of the file. The numbers have disappeared! 


EDIT === PURPLE. .PROSE A COLUMNS 009 080 
COMMAND ===> _ SCROLL ===> HALF 


**K KKK 
000100 
000200 
000300 
000400 
000500 
000600 
000700 
000800 
000900 


001000 
001100 
001200 


OK KK KK * 


sO OR RR oR ka TOP OF DAT A 0k 2K RRR RRR OR OR ORR KOK RK kK OK kk 
ntless wind hurled icy sheets of rain at the brooding 

of the crumbling 18th-century mansion where I was 

in a hidden chamber | had discovered quite by accident 
ULLED WHAT [ THOUGHT WAS ONLY A MUSTY, DOG-EARED COPY OF 
OST STORIES FROM THE MIDDLE AGES" OFF THE SHELF IN THE 
MY, CAVERNOUS LIBRARY. 

E I WAS, PLUNGED SUDDENLY INTO UTTER DARKNESS, WITH 
OUL-SMELLING BOOK IN MY HANDS AND, IN MY POCKETS, 

THREE CENTS' CHANGE, A PIECE OF CHEWING-GUM FOIL COMPLETE 
UCH-CHEWED WAD OF STALE GUM, AND A PEN THAT HAD RUN OUT 
HE WEEK BEFORE. HOW COULD I HAVE KNOWN THE TERRORS THAT 
ME AS THE HEAVY DOOR SWUNG SHUT BEHIND ME? 


RRR R kok KKK KR RK RR BOTTOM OF DATA kk ok KK oo KK oo ook ok ok kk ok kkk KOK kkk 


Enter the RESET command to clear the profile display from the screen. 


Using PF Keys 


Now, scroll to 


The PF keys on your terminal have default settings for use with ISPF and ISPF/PDF. You don’t have to use 
the PF keys at all, but they do make it easier to perform certain tasks. So far, you’ve used PF3 to save and 
exit from a file, PF4 to skip screens and go directly to the next-highest primary option panel, PF10 to scroll 


left, PF11 to scroll right, and PF12 to move the cursor back to the command line. 


The default values shown below apply to PF keys 1 through 12 on a 12-key terminal, or PF keys 13 through 
24 on a 24-key terminal. 
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PF1/PF13 HELP Displays error message and 
tutorial information. 


PF2/PF14 SPLIT Splits the screen at the cursor 
location, and displays the 
ISPF/PDF Primary Option Panel 
on the second screen. 

PF3/PF15 END Ends the current task and returns 
to the previous panel. 

PF4/PF16 RETURN Returns to the previous Primary 
Option Panel without displaying 
intervening levels of panels. 

PF5/PF17 RFIND Repeats the previous FIND 
command in EDIT and BROWSE 
services. 

PF6/PF18 RCHANGE Repeats the previous CHANGE 
command in the EDIT service. 

PF7/PFi9 |UP —_| Scrolls toward the top of the data. | 


PF8/PF20 DOWN Scrolls toward the bottom of the 
data. 

PF9/PF21 SWAP In split-screen mode, moves the 
cursor from one logical screen to 
the other. 


PF10/PF22 | LEFT Scrolls left. 
PF11/PF23 | RIGHT Scrolls right. 


PF12/PF24 | CURSOR Moves the cursor to the first input 
field on the current panel (usually 
the option selection or command 
field at top of screen). 


Pressing a PF key has the same effect as typing the command on the command line and pressing the 


ENTER key. For instance, if a panel gives directions like this: 


Enter the END command to terminate. 


you get the same result (termination) whether you type in the word “END” or press PF3. 
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While you’re still in this file, practice using some of the PF keys. For example, try: 
@ Scrolling down to the bottom of the file, and then scrolling back to the top. 
e Requesting help. 


@ Splitting the screen, and swapping the cursor between the screens (to end split-screen mode, use PF3). 
See what happens if you try to edit the same file on both screens. 


For more information about PF keys, see /SPF/PDF Guide. 


Using Edit Commands 

There are two kinds of commands in ISPF/PDF’s Edit option: 
@ Primary commands 

e Line commands. 


You’ve already used primary commands; they’re the ones you type in on the command line at the top of 
your edit files. For example, you’ve used PROFILE, CAPS OFF, UNNUM, and RESET. 


Line commands are commands that you enter on the edit line numbers, which are located on the left side of 
the file. 


Suppose you want to add a line or a group of lines to this file. You can use the “insert lines” line command, 
like this: 


KRKKEKKK KRKKEKKKKKKKEKEKEKKKKKKKREKEKKKK EEK TOP OF DATA KKKKKKKKKKEKEK 


000100 

100200 This line command inserts one line. 
000300 

L20200 This line command insérts five lines. 
000500 


Try it! 
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To delete a line or a group of lines from a file, type: 


KEKEKEKK 


000100 
d00200 
000300 
000400 
000500 
ad30600 
000700 
OO0800 
000900 
dd1000 
001100 
dd1200 
001300 
001400 
001500 


KEE KEK KEK KEKE KK KEK KK RR KK KKK EKER TOP OF DATA KREKKK KEKE EK KE KK KEKE KE 


This line command deletes one line. 


This line command deletes lines 000600, 000700, and OOCO8O00. 


This pair of line commands deletes lines 001000, 001100, 
and 001200. 


To repeat a line or a group of lines in another place in the file, type: 


KKKKKK 


000100 
rOO2Z00 
000300 
r40400 
000500 
rrQo00 
000700 
OO0800 
rrOQ900 
001000 
OO1100 
rr22700 
001300 
rr1400 
001500 
001600 
000017 


If you want more information about edit primary and line commands, see /SPF/PDF Guide. 


KREK ERE KK EKER EKER EK KKEKRERKERERK TOD OF DATA RREK KEK KEKE KK EKER KK 


This line command repeats line 000200 once. 
This line command repeats line 000400 four times. 


This pair of line commands repeats lines 000600, 000700, 
000800, and 000900 once. 


This pair of line commands repeats lines 001200, 001300, and 


001400 twice. 
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Now, press PF3. That saves the file, and takes you back to the edit entry panel, where you see the “FILE 
SAVED” message in the short-message area in the upper right-hand corner of the edit entry panel: 


ISPF LIBRARY - 
PROJECT 
GROUP 
TYPE 
MEMBER 


===> 


hou uo 
ft wt on 
vvwVYv 


(Blank 


CMS FLLE: 
Pree. 0 
MEMBER 


> PURPLE PROSE A_ 
> 
BUY SPECIFY 


IF NOT LINK 
OWNER'S ID 


READ PASSWORD 
PROFILE NAME 


INITIAL MACRO : 
LOCK 


FORMAT NAME 


=e DEVICE ADDR. ===> 


for member selection list) 
FOR NEW CMS FILE OR ISPF MEMBER: 
RECFM ===> (F or ¥V) 
LRECL ===> 
LINK ACCESS MODE ===> 
UPDATE PASSWORD ===> 
(Blank defaults to type) 


EDITOR or XEDIT) 
XEDIT OPTIONS or NO) 


MIXED MODE or NO) 


You’ve just completed your introduction to editing with ISPF/PDF. In “Part Two: Writing a Dialog,” you'll 
use the skills you learned in this chapter to write an ISPF dialog. 


Chapter 2. Introducing ISPF/PDF 2-19 


ISPF and ISPF/PDF Primer 


2-20 


es 


(at mt a mt at he oe 


iat ee oe he ee 


| ot et et et et et ee st 


Part Two: Writing a Dialog 


In Part Two, you use some of ISPF/PDF’s options to create the panels, messages, and functions for a 
sample ISPF dialog. If you don’t have access to ISPF/PDF, you can use XEDIT to create the files you need. 


It may seem to you that you aren’t using ISPF for much of the work you do in Part Two. Actually, you are — 
ISPF is controlling everything that you do. Among other things, it is displaying the ISPF/PDF panels you 
request, determining what messages to display on the panels, and interpreting the commands you enter. 
And, in Chapter 7, “Putting It All Together,” ISPF helps you combine all of the dialog elements into one 
dialog. 


Part Two: Writing a Dialog 
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The application isn’t complex, but it has enough detail to give you practice with some ISPF and ISPF/PDF 
basics. You can probably think of many ways to extend and personalize the application after you've 
practiced with it. 


Chapter 3. Designing a Dialog 3-1 


IDOL eee f04 8 sao ee an haere ee ON bee tO ek wr oe te Se oe oe eo on be eee 3-3 
COU sect eee ce Sk ee eso ee ee 8 eG rds eh wo a ne hn ae oh ve te ve ae wt a we eee 3-4 
PrOCESSING SCQUCNCE 26 sean eed aed 6 whe 5 Ch 8 hee Oe SOSA eA SG Oe Rea ee eee et ee ke te eaes ve 3-4 
Required Dialog ElGMGHIS: §sis.0iwo% cee ee Gah Oe ee Eee ee aed Gk oe bey oe ole ee eee e ee ed OG 3-5 
Dialog Element Files «46.4 ae ese eke eee Woe bo neo v es bs beh Gee hes Gee eee eee Ges ERE eee eee ees 3-7 

Setting. Up Dialog Element FileS <cisncadeoceesebrdcdb ows ood Heo ORS @ ORK Hee ER ES DEO 3-7 

Defining Dialog Element Files to VM/SP .. 0.0... ee tees 3-7 


3-2 ISPF and ISPF/PDF Primer 


BHREeBSSBaaBaBRBaBaaA S&S BS 


BSRBeEBBaeBaBBeAaAS BS 


BRSeEH DB 


Suppose you decided to write an online replacement for your desk calendar — something simple that could 
tell you at a glance what’s on your schedule for a particular day. It could even print an activity report, just 
in case somebody else wants to know how you've been spending your time. 


Here’s one way to do it — the Personal Scheduling Manager (PSM, for short). 
Input 

You provide PSM with the following input: 

e date — mm/dd/yy format 

e time — hh:mm, in 24-hour format 

e description — up to 24 characters 


e notes — up to 24 characters (for example, notes to yourself about work to do to prepare for meetings). 
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Output 


PSM displays a daily calendar that lists times, descriptions, and notes for all appointments. PSM can also 
print an activity report that lists activities for a particular day. 


Processing Sequence 


3-4 


The PSM dialog begins either when you select it from among choices listed on the ISPF Master 
Application Panel, or when you enter the ISPSTART command on the CMS command line. There’s a 
more detailed explanation of how to start the dialog in Chapter 7, “Putting It All Together.” 


PSM displays a task selection panel, with choices as follows: 


1 — Enter or update activity information 


When you select this option, a data entry panel prompts you to enter the date and time, and then 
press the ENTER key. On the next panel, enter or update the description and notes for the activity. 
Type in “END” (or press PF3) to file the information and exit from this panel. Type in “CANCEL” to 
exit from this panel without saving the information you entered. The panel on which you enter date 
and time is redisplayed; if you have more than one entry to add, just update the date and time 
information and continue. 


2 — Display calendar for the day 

A data entry panel prompts you to enter the date for which you'd like to see the calendar entries. 
After you supply the date and press the ENTER key, you see the calendar entries on your screen. 
3 — Print activity report for the day 

If you select task 3, a data entry panel prompts you for the date for which you want to print an 


activity report. The dialog uses a file tailoring skeleton to format any information found in the table 
for that date, and prints each table entry’s description and notes for the activity report. 
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e 4— Delete entry from calendar 


On a data entry panel, enter the dates and times for the activities you want to delete. To delete a 
whole day’s activities, leave the time field blank. You can enter the END command to exit from this 
task without deleting any activity information. 


@e@ X— Exit from PSM. 


If you choose one of the first four tasks, the task selection panel reappears after processing is 
complete. You can choose another task, or exit. 


Required Dialog Elements 


Based on the input, output, and processing information we’ve just presented, we can figure out what dialog 
elements we need for the PSM application. You can refer to the chart in Chapter 1, “Introducing ISPF,” if 
you need to refresh your memory. 


The dialog has to perform four tasks: enter/update, display, print, and delete. So, we have to write at 
least one function, and perhaps more than one, depending on how we want to set it up. 


To present those four task choices to someone who wants to use PSM, we need a selection panel. 
The dialog has to have some way to receive information about activities, so we need data-entry panels. 


What if someone who uses this dialog has a question about some part of it? We need to include a 
tutorial panel for each panel in the dialog. 


To store the activity information, we can create a table. And, to get the activity information from the 
data entry panels to the table, we have to define some dialog variables. 


There has to be some way for the dialog to communicate information about errors or processing; we 
can write some messages. 


To print the activity report, we need a file tailoring skeleton. 
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This diagram shows what dialog elements we need for each task. 
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PSM Task 
Selection 
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Enter/Update function 
Data entry panels 
Messages 

Table of calendar entries 
Dialog variables 


Display function 

Data entry panels 
Messages 

Table of calendar entries 
Dialog variables 
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Print function 
Data entry panel 
Messages 
eT File talloring skeleton 
Table of calendar entries 
Dialog variables 
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Delete function 
Data entry panel 


Messages 
Table of calendar entries 
Dialog variables 


Exit from PSM 
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Dialog Element Files 


There are several ways to set up your dialog element files. We explain one way here; you can read the 
Dialog Management Guide to learn about the other formats. 


Setting up Dialog Element Files 


The PSM dialog element files are grouped as sets of CMS files with the same filetype. For example, all 
PSM panel definitions are stored in files with CMS file IDs that look like this: 


(panel name) PANELS A 


The chart below shows the CMS file IDs for the PSM dialog element files. 


Dialog Element CMS File ID 


Panels 


(panel name) PANELS A 


Messages (message name) MSGS A 


File tailoring skeleton (skeleton name) SKELS A 


Functions (function name) EXEC A 


Defining Dialog Element Files to VM/SP 


In Chapter 1, “Introducing ISPF” and Chapter 2, “Introducing ISPF/PDF,” we showed you FILEDEF 
statements for the ISPF and ISPF/PDF product files. You checked to be sure you had all the appropriate 
FILEDEF statements so you could invoke ISPF and ISPF/PDF. Now, you have to do the same thing for the 
PSM dialog element files. 


Whenever you create a dialog element file, you must be sure there is a FILEDEF statement associated with 
the file. That is the only way ISPF will be able to find the file when an application requests a particular 
dialog element (unless you use a special ISPF service that lets you define application files while a dialog is 
running, but we aren’t doing that in this book). 
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For example, this is the FILEDEF statement we are using to define the panel files to ISPF: 


FILEDEF ISPPLIB DISK ISPNULL PANELS A (PERM CONCAT 


ISPNULL is being used as a filename placeholder. You can change ISPNULL to something else, if you like, 
as long as the filetype is PANELS. That’s because, when ISPF has to search for panel definitions, the 
search is by filetype, not filename. 


The series of FILEDEF statements for panels (including both PSM dialog element files and product files) is: 


FILEDEF ISPPLIB CLEAR 

FILEDEF ISPPLIB DISK ISPNULL PANELS A (PERM CONCAT 
FILEDEF ISPPLIB DISK ISRPLIB MACLIB * (PERM CONCAT 
FILEDEF ISPPLIB DISK ISPPLIB MACLIB * (PERM CONCAT 


You must put the FILEDEF statement for your panel files, or those for any other dialog element, before the 
FILEDEF statements for the product files. When ISPF searches for a dialog element (for example, when a 
dialog has to display a particular panel, and ISPF has to find the correct panel definition), the dialog 
element files you created should be searched first. 


For messages, use these FILEDEF statements: 


FILEDEF ISPMLIB CLEAR 

FILEDEF ISPMLIB DISK ISPNULL MSGS A (PERM CONCAT 
FILEDEF ISPMLIB DISK ISRMLIB MACLIB * (PERM CONCAT 
FILEDEF ISPMLIB DISK ISPMLIB MACLIB * (PERM CONCAT 


The FILEDEF statements for skeleton files are: 
FILEDEF ISPSLIB CLEAR 


FILEDEF ISPSLIB DISK ISPNULL SKELS A (PERM CONCAT 
FILEDEF ISPSLIB DISK ISRSLIB MACLIB * (PERM CONCAT 
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Use these FILEDEF statements for table input files: 


PILEDEE 
FILEDEF 
FILEDEF 
FILEDEF 


ISPTLIB CLEAR 

ISPTLIB DISK ISPNULL TABLES A (PERM CONCAT 
ISPTLIB DISK ISRTLIB MACLIB * (PERM CONCAT 
ISPTLIB DISK ISPTLIB MACLIB * (PERM CONCAT 


The FILEDEF statements for the table output file are: 


FILEDEF ITSPTABL CLEAR 
FILEDEF ISPTABL DISK ISPNULL TABLES A (PERM 


The FILEDEF statements for the file tailoring output file are: 


FILEDEF ISPFILE CLEAR 
FILEDEF ISPFILE DISK ISPNULL FTOUT A (PERM 


Now ISPF can find the PSM dialog element files you’re about to create. 
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Creating a Panel Definition 
Testing a Panel Definition 


Other Panel Definitions .. 
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Creating a Panel Definition 


Select the ISPF/PDF Edit option (Option 2) by typing a “2” on the command line of the ISPF/PDF Primary 
Option Panel. 


Note: ISPF/PDF users can choose to use either the PDF editor (Option 2) or XEDIT to create the PSM 
dialog elements. If you are using XEDIT under ISPF/PDF, you can ignore the notes to XEDIT users that 


appear throughout this chapter. They are for users who have access only to XEDIT and not to ISPF/PDF. 


When the Edit Entry Panel appears, enter the file ID for the PSM task selection panel, like this: 


ISPF LIBRARY: 
PROJECT ===> 
GROUP ===> ===> =s=> ===> 
TYPE ===> 
MEMBER ===> (Blank for member selection list) 

CMS FILE: FOR NEW CMS FILE OR ISPF MEMBER: 
FILE ID ===> PSM PANELS A_ RECFM ===> (F or V) 
MEMBER ===> LRECL ===> 
IF NOT LINKED, SPECIFY: 

== DEVICE ADDR. ===> LINK ACCESS MODE 


READ PASSWORD ===> UPDATE PASSWORD 


PROFILE NAME ===> (Blank defaults to type) 


INITIAL MACRO 
LOCK 


EDITOR 
XEDIT OPTIONS 


XEDIT) 
NO) 


FORMAT NAME 


MIXED MODE 


NO) 
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Press ENTER. 
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Before we actually begin to create our first panel definition, let’s look at the edit profile for this file. 


Note: XEDIT users — You know how to create a new edit file. Before you do that, make sure you have an 
edit profile that’s appropriate for editing mixed-case data, with no sequence numbering. Next, study the 
chart on page 4-8 that describes the sections of an ISPF panel definition and then enter the PSM panel 
definition shown on page 4-9. 


Type 
profile 8 

on the command line. Notice that sequence numbering is NUMBER ON STD. On the command line, type 
unnum 


The number mode changes to NUMBER OFF. Now, the edit profile you use for editing files with a filetype of 
PANELS will automatically turn off the sequence numbering. You’re all set to edit! Type 


reset 


to clear the profile display from the screen. Then, type 


model 


and press ENTER. 


4-4 ISPF and ISPF/PDF Primer 


BRE SB RB RP RBBB RBRBRRBRBRBRBBRBRBRBB ESE BB 


Seueaneaneaaeeseeeres BB 


SBBeeaeeant B® 


BSueaeaeskh B 


BS B 


That command gets you into ISPF/PDF’s edit models. A model is a predefined set of statements for a 


dialog element (for example, a panel) that you can copy into the file you are editing, and then modify to suit 
your needs. 


Because the file we are editing has a filetype of PANELS, the “MODEL” command lets us bypass the Model 
Class Selection Panel, and go directly to the Panel Model Selection Panel. 


PANEL FORMATS: 
F1 ENTRY Data entry F4 TBDISPL - Table Display 


F2 MULTIPLE Multiple column FS TUTORIAL - Help/tutorial 
PO SELECTION Panel selection 


STATEMENTS: 
S1 ASSIGN Assignment statement 
S2 ATITR Attribute section header - JATTR 
S3 ATTRIB New attribute character definition 
S4 BODY Body section header - )BODY 
S5 CONTROL Control variables 
S6 If statement 
S/ Medel section header - )MODEL 
58 Verify statement 
S9 Variable put statement 
SA REFRESH Refetch variables prior to redisplay 
SB ATTRIBA New attribute character definition for areas 


Enter END command to cance! MODEL conmand. 


Copy the selection panel model into your file by typing: 


FS 


on the command line, and pressing ENTER. 
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Before we do any work with this model, let’s take a few minutes to talk about panels in general. 

An ISPF panel definition contains up to 7 sections. Each of the sections begins with a header statement, 
whose first character is ’)’. Let’s briefly look at each of the sections; we discuss them in the order in which 
they must appear (if they do appear) in the panel definition. Not all panels require all sections; so, 
depending on which model you specify, you won’t see every section that’s described in this chart. 


Use the PF8 key to scroll down and find each section as you review the chart. 
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YATTR DEFAULT 


(%+_) 


/* % TYPE(TEXT) INTENS (HIGH) data displayed for = 
f*® + TYPE( TEXT) INTENS( LOW) information only af 
/* _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) ae 
) BODY 
(= Ss SS SS =] S>SS4 5 TITLE FOR GELECTION PANEL =-=Se=--==-erSe—SS=-— 
SELECTION ===> _ZCMD 
+ 
f THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL: 
+ %14+.SELECTION 1 Description or explanatory text for selection 1 
+ S2+ SELECTION (2 Description or explanatory text for selection 2 
i 23 SCE bECTION. 3 Description or explanatory text for selection 3 
+ %4+ SELECTION 4 Description or explanatory text for selection 4 
+ 5+ SELECTION 5 Description or explanatory text for selection 5 
+ Or GELBCTION -G Description or explanatory text for selection 6 
+ 37+ SELECTION 7 Description or explanatory text for selection 7 
+ that requires more than one line 
+ 
“ OPTIONAL BOTTOM DIRECTION LINE. 
+ 
pia ae 
-.HELP = TUTORPAN /* insert name of tutorial panel ar 
) PROC 
&ZSEL=TRANS (TRUNC(&ZCMD,'.') 
1, 'PANEL(PANEL1) EWAPPL' 
2,'CMD(COMMAND2) ' 
3,'PGM(PRGNAME1) NEWPOOL' 
4,'PGM(PRGNAME2) PARM(PARAMETER) ' 
5,'PGM(PRGNAME3 .TRAIL) NOCHECK' 
6, 'PANEL(PANEL2) ' 
7,'PGM(PRGNAME4) PARM(&VARIABLE) ' 
zr) 
) END 
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Section Header 
aAttribuce JATTR 
body’ )} BODY 
model )MODEL 
initialization )INIT 
reinitialization JREINIT 
processing ) PROC 
end! YEND 


Description 


Defines special characters used in the 
body of the panel definition to signify 
field attributes such as highlighting 
and. Color. 


Defines the format of the panel as it 
will be seen by the user, and defines 
the name of each variable field on the 
panel. 


Defines the format of each row of 
scrollable data; FOR TABLE DISPLAY 
PANELS ONLY. 


Specifies initial processing to take 
place before the panel is displayed; 
initializes variables. 

Specifies processing to take place 
before a panel is redisplayed. 


Specifies processing to take place 
after the panel has been displayed or 
redisplayed; defines how to verify and 
translate variables. 


Specifies the end of the panel 
definition. 


1 This section is required to be part of the panel definition; al! other sections are optional. 
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Now, look at the PSM panel definition below. 


JATTR DEFAULT(3%+_) 


/* THIS LS THE. PSM TASK SELECTION. PANEL. a 
f* IT INVOKES THE FOLLOWING REXX EXECs: ed 
ye PSMXENT - ENTER OR UPDATE ENTRIES IN THE CALENDAR RS 
f/* PSMXDISP - DISPLAY THE CALENDAR FOR THE DAY La 
tee PSMXPRT - PRINT AN ACTIVITY REPORT FOR THE DAY aes 
Ve: PSMXDEL - DELETE AN ENTRY OR A DAY FROM THE CALENDAR mf 
) BODY 
a ae Personal ScnedtulLing Manager (SSS 2455] S2SSSS—SSsoSse5= 
SOPTION ===>_ZCMD 
+ 
+ %1+ ENTER = Enter Or “update. calendar entry 
+ %2+ DISPLAY - Display calendar for the day 
+ %3+ PRINT - Print activity report for the day 
+ %4+ DELETE - Delete entry from calendar 
+ Sk? EXIT = Peo Yom Pom 
+ 
+ 
) INIT 

-HELP = PSM1 
) PROC 

&ZSEL=TRANS (TRUNC(&ZCMD,'.') 

1,'CMD(PSMXENT) ' 
2,'CMD(PSMXDISP)' 


3,'CMD(PSMXPRT)! 
4,'CMD(PSMXDEL) '! 
t ' t 1 
f 
ExT 
Fis 
}END 


Modify each section of the panel model in your PSM file so it looks like this. You can type over the words 


that are on the panel, and delete any sections you don’t need. Use the PF keys and edit line commands 
you practiced with in “Using the ISPF/PDF Edit Option” on page 2-9. 


Don’t be concerned if you don’t understand some parts of the panel definition right now. The next few 
chapters will help you fill in the blanks. 
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When you finish, press PF3 to go back to the Edit Entry Panel. Look for the message “FILE SAVED” in the 


short message area in the upper right-hand corner of the panel. 


ISPF LIBRARY: 
PROJECT ===> 


===> 


(Blank for member selection list) 


FOR NEW CMS FILE OR ISPF MEMBER: 


PSM PANELS A RECFM ===> (F or V) 
LRECL ===> 


» SPECIFY: 
> 


DEVICE ADDR. ===> 
READ PASSWORD === UPDATE PASSWORD ===> 
PROFILE NAME (Blank defaults to type) 
EDITOR 


XEDIT OPTIONS 
MIXED MODE 


INITIAL MACRO 
LOCK 
FORMAT NAME 


ff i tt 
noiso& 


fo ow a 
vwWwyv 


LINK ACCESS MODE ===> 


(PDF or XEDIT) 
(YES or NO) 
(YES or NO) 


Press PF3 once more, to go back to the ISPF/PDF Primary Option Panel. 


Note: XEDIT users — You can skip the next section, “Testing a Panel Definition,” and pick up again 


with “Other Panel Definitions” on page 4-15. 
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Testing a Panel Definition 


ISPF/PDF’s Dialog Test option (Option 7) can test each dialog element separately — panels, messages, 
functions, variables, or calls to ISPF services. Or, it can test a completed dialog. 


To test the PSM panel definition, select Option 7 on the ISPF/PDF Primary Option Panel. 


The Dialog Test Primary Option Panel appears next. 


OPTION ===> _ 


FUNCT [ONS 
PANELS 
VARTABLES 
TABLES 

LOG 

DIALOG SERVICES 
TRACES 
BREAKPOINTS 
TUTORIAL 

EXIT 


1 
2 
3 
4 
o 
6 
7 
8 
il 
X 


Invoke dialog function/selection 
Display panels 

Display/set variable information 
Display/modify table information 
Browse ISPF log 

Invoke dialog services 

Specify trace definitions 
Specify breakpoint definitions 
Display information about Dialog 
Terminate dialog testing 


Enter END command to terminate dialog testing. 
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From the list of choices, select Option 2 (Panels). On the dialog test panel titled “Display Panel”, type in 


“PSM”, and press ENTER. 


PANEL NAME 

MESSAGE ID 

CURSOR 

CURSOR POSITION ===> 


4-12 SPF and ISPF/PDF Primer 


(Optional) 


(Optiona!) 


(Optional) 


| 
= = = , 


You should see the panel displayed like this: 


rsonal Scheduling Manager 


> 


ENTER 
DISPLAY 
PRINT 
DEL he 
EXIT 


Enter or update calendar entry 
Display calendar for the day 
Print activity report for the day 
Delete entry from calendar 

Exit fram PSM 
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Helpful Hints 


Hint #1 


If you get an error message instead of a panel, make sure you didn’t make one of these fairly common 
mistakes: 


e Forget to issue a FILEDEF statement for the file. If you forgot, you get the message, “PANEL NOT 
FOUND”. 


e Edit the panel with NUM ON in the edit profile. Refer to “Using an Edit Profile” on page 2-11 to see 
how to correct this mistake. If number mode was on, you'll receive a message about an error on the 
first panel section header — for example, )ATTR, the attribute section header. 


@e Copy something incorrectly 
e Forget the )JEND statement at the end of the panel definition 


e Use an attribute character in the text of the panel definition. Actually, this error may allow the panel to 
display, but everything on the panel that comes after the incorrect use of the attribute character may 
get displayed with the attribute character definition. For example, if you use ”“%” to define highlighting, 
and you also use that character in the text (as in “The number must be at least 10% greater than....”), 
the words “greater than” and everything that comes after them will be highlighted. 


Hint #2 

When you test dialog elements, use ISPF/PDF’s split-screen capability, so you can work with two logical 
screens at once. On one screen, you can display the test results. On the other, you can make any 
necessary changes to the file. 

Start out in the edit option. Move the cursor about one-third of the way down the file, and press PF2. 

The ISPF/PDF Primary Option Panel appears on the second screen. Select the appropriate Dialog Test 
option (panels or messages, for example), and enter the name of the dialog element file in the appropriate 


field on the Dialog Test panel. If the testing snows some errors, use PF9 to Swap screens, and correct the 
errors in the edit copy of the file. 
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Other Panel Definitions 


Here are the rest of the panel definitions for the PSM dialog. Following each panel definition, we show you 
the way each panel looks when it is properly formatted. 


We’ve included comment statements in these panel definitions, to help you figure out what the different 


sections and statements mean. You can type them into your own panel definitions if you want to, but you 
don’t have to. 


You can use ISPF/PDF’s edit models to create these panel definitions, or use the Helpful Hint below as 
another way to save time. 


Note: XEDIT users — Now that you’ve created your first panel definition, you can save some time by using 
it when you create the others. Copy the PSM PANELS A file into another file, and make the required 
changes. 


A Helpful Hint 


When you are creating several panel definitions that are very similar, you can create one, and then copy it 
into the other files and make the necessary modifications. So, you don’t have to use the models, but you 
can still create your panels fairly quickly. 


There are two ways to copy one file to another: the extended copy capability in ISPF/PDF’s edit option, and 
Option 3.3, the Move/Copy Utility. 


Using Extended Copy 


If you are already editing a file, you can copy information from one file to another without leaving your edit 
session. 


On the Edit-Entry Panel, type in the name of the new panel definition file; for example, PSMDISP PANELS 
A. Press the ENTER key. 
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Type 
copy 


on the command line of the PSMDISP PANELS A file. The Edit-Copy panel appears on the screen, and you 
enier the name of the current panel definition file as follows: 


EDIT - COPY 


“CURRENT" FILE: PSMDISP PANELS A 
ISFF LIBRARY: 
PROJECT -=--=> 
GROUP omm> ==> 
TYPE ==> 
MEMBER ===> (Blank for member s@lection list) 


FROM CMS FILE: 
FILE 10 ===> PSM PANELS A_ 
MEMBER ===> (For MACLIB or TXTLIA) 
IF NOT LINKED, SPECIFY: 
OWNER ‘S 10 ~--> DEVICE AOOR. -#+> LINK ACCESS MODE =--> 


READ PASSWORD ---+> 

LINE NUMBERS (8LANK FOR ENTIRE MEMBER OR SEQUENTIAL FILE): 
FIRST LINE ===> 
LAST LINE ==> 
NUMBER TYPE ===> (STANDARD, COBOL. or RELATIVE) 


Press ENTER key to copy or enter END commana to cancel copy. 


Press the ENTER key. The PSMDISP PANELS A file now contains a copy of the panel definition found in 
PSM PANELS A. All you have to do is change what's different between the two panels. 
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Using the Move/Copy Utility 


Select option 3 from the ISPF/PDF Primary Option Panel. The Utility Selection Panel appears on the 
screen. 


Kibrary utility: 
Print index listing or entire file 
Print, rename, delete, or browse members 
Compress ISPF library or CMS MACLIB 
Pee te ich ys 
Specify or unspecify ISPF library 
Display ISPF library or CMS file information 
Rename or delete ISPF library or CMS file 
MOVE/COPY - Move or copy members or files 
Pthé LIST Print or display ISPF project or CMS file listing 
RESET Reset statistics for members of ISPF library 
SPOOL Initiate spool output 
READER Retrieve batch output from reader 
RETRIEVE Retrieve ISPF-MVS |ibraries from tape 
COMMAND Create/change an application command table 
CONVERT Convert old format messages/menus to new format 
FORMAT Format definition for formatted data edit/browse 


_ 
4 
=) 
6 
¥ 
8 
Se) 
0 
i 


— .—k 


Select option 3, the Move/Copy Utility. 
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On the next panel that appears, enter the name of the file you want to copy information from; in our 
example, you’d enter: 


Copy file or member(s) CP = Cepy and print 

Move file or member(s) MP - Move and print 

Copy and lock member(s) LP = Copy, lock, ond print 

Promote file or member(s) PP = Promote and print 
SPECIFY "FROM" FILE BECOW, THEN PRESS ‘ENTER [TO SPECIFY "TO" FILE 


FROM ISPF LIBRARY: 


(Blank for member list, * for al! members) 


FROM CMS FILE: (Not valid for options L and LP) 
FILE [D ===> PSM1 PANELS A_ 
MEMBER ===> (For MACLIB or TXTLIB) 
[F NOT LINKED, SPECIFY: 
OWNER'S [D ===> DEVICE ADDR. ===> LINK ACCESS MODE ===> 


READ PASSWORD ===> UPDATE PASSWORD ===> 
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Press the ENTER key, and on the next panel enter the name of the file to which you want the information 
copied. In our example, that’s: 


COPY --- FROM PSM PANELS A 
COMMAND ===> 


SPECIFY “TO” FILE BELOW. 


TO ISPF LIBRARY: 
PROJECT ===> 
GROUP ===> 
TYPE ===> 


TO CMS FILE: FOR CMS FILE OR ISPF LIBRARY MEMBERS: 


FILE 1D ===> psmdisp panels a_ RECFM ===> (F or V) 
LRECL ===> 

IF NOT LINKED, SPECIFY: 

OWNER'S ID ===> DEVICE ADDR. LINK ACCESS MODE ===> 


UPDATE PASSWORD ===> 


"TO" LIBRARY/FILE OPTIONS: 
IF LIBRARY, REPLACE LIKE-NAMED MEMBERS «==> YES (YES or NO) 
IF SEQUENTIAL, OLD (REWRITE) OR MOD (APPEND) ===> OLD (OLD or MOD) 
SPECIFY PACK OPTION FOR "TO" FILE ===> (YES, NO, or blank) 


Press the ENTER key. Look for the message “FILE COPIED” in the short-message area of the Edit-Entry 
Panel. 


Press PF4 to return to the Primary Option Panel without stopping at the Utility Selection Panel. Now, 
PSMDISP PANELS A is ready for you to edit! 
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PSMDISP — This data entry panel asks you to specify the date and time for a new activity you want to enter 
into the calendar table. 


JATTR DEFAULT (%+_) 
/* displayed by PSMXENT EXEC #*/ 
# type(input) intens(high) pad(0O) just(right) 
@ type(input) intens(high) pad(_) 
) BODY 
saa Personal Scheduling Manager: Set Date and Time ------------- 
COMMAND ===>_ZCMD 


Enter the date and the time of day: 


Date ===> #MT+/#DY+/#YR+ (Enter mm/dd/yy) 
Time ===> #HR+:#MN+ (Enter hh:mm in 24-hour format) 


Press thesENTER+kKey to process; enter the%sEND+command to terminate. 
INIT 
&ZCMD = ' ' 


~ tee eettettreetetgttt++++e t+ tt 


/* initialize command line to blank */ 
~-HELP = PSM3 


) PROC 
VER(&MT,NONBLANK, RANGE ,O1,12,MSG=PSMOOO0O) /* verify valid month, 1 - 12 a 
VER (&DY,NONBLANK, RANGE ,O1,31,MSG=PSM001)/* verify valid day, 1 - 31 es 
VER(&YR,NUM,MSG=PSMO0O02)/* verify valid year, any number </ 
VER(&HR,NONBLANK,RANGE,OO,23,MSG=PSM003)/* verify valid hour, OO - 23 ny 
VER(&MN,RANGE,00,59,MSG=PSMO004) /* verify valid minute, 00 - 59 es 

) END 
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Use ISPF/PDF Option 7.2 to make sure the PSMDISP panel formats properly. 


Personal Scheduling Manager: Set Date and Time 
COMMAND ===> 


Enter the date and the time of day: 


Date = 
Time = 


==> 00 / 00 / 00 (Enter mm/dd/yy) 
==> 00 : 00 (Enter hh:nm in 24-hour format) 


Press the ENTER key to process; enter the END command to terminate. 
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PSMENT — This data entry panel requests description and notes for each new calendar entry. 


J)ATTR DEFAULT (%+_) 
/* displayed by PSMXENT EXEC af 
# TYPE(output) INTENS(low) JUST(right) PAD(0O) 
/* output field right-justified, padded with O*/ 
S$ TYPE(INPUT) INTENS(high) PAD(_) CAPS(off) 
J/* anput field padded with *..’ * J 
COMMAND ===>_ZCMD 
Enter activity description and notes below: 


Date: #MT+/#DY+/#YR+ 


Time: #HR+:#MN+ 


Notes i 


S~+ttteertettettrereeetettt st + ww wr~ 


INIT 
~-HELP = PSM2 
) PROC 
&COMMAND = ' ! /* initialize variable to blanks 
IF (&ZCMD=CAN,CANCEL) /* allow 'CAN' or 'CANCEL' to quit 
&COMMAND = CANCEL /* set variable for EXEC 
) END 
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S255 Personal Scheduling Manager: Enter Data  -------------------- 


Enter thesEND+command to file the information and exit this panel. 
Enter thesCANCEL+command to exit this panel without filing information. 


Bea 
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The PSMENT panel looks like this when you test it. 


Personal Scheduling Manager: Enter Data 
COMMAND ===> 


Enter activity description and notes below: 


Date: O00 / 
Time: OO : 


Description 


Notes 


Enter the END command to file the information and exit this panel. 
Enter the CANCEL command to exit this panel without filing information. 


Note: \f there were entries in the table, the date and time fields on this panel would be filled in. When we 
test the completed dialog in Chapter 7, “Putting It All Together,” we can supply some table entries, so 


these fields will have data in them. 
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PSMSET — This data entry panel prompts you to fill in the date for which you want to see a calendar 
display. 


)ATTR DEFAULT (%+_) 
/* displayed by PSMXPRT EXEC a 
# TYPE(input) INTENS(high) JUST(right) PAD(0) 
/* input field right-justified, padded with O */ 


Qe S= Personal scheduling Managers Sel Date =S=SssS=Sessss<sesso=- 
COMMAND ===> _ZCMD % 


Enter the date for the activities you want to print or display: 


Activity report for %===>#MO+/#DA+/#YE+ (Enter mm/dd/yy) 


~+tttttgzp¢p¢g¢¢¢t¢gt¢gtttttt + oo 


Press the%ENTER+key to process; enter thetEND+command to terminate. 
INT 
»-HELP = PSM3 
) PROC 
VER(&MO,NONBLANK, RANGE ,0O1,12,MSG=PSMO0O) 
f* NVevity valid month, 1.— 12 = 7 
VER(&DA,NONBLANK, RANGE ,01,31,MSG=PSMO0O1) 
/* verify valid day, 1 - 31 ed 
VER(&YE,NUM,MSG=PSM002) 
/* verify valid year, any number * / 
)END 
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Here’s what the PSMSET panel looks like when it’s properly formatted: 


Personal Scheduling Manager: Set Date 
COMMAND ===> 


Enter the date for the activities you want to print or display: 


Activity report for ===> 00 / 00 / 00 (Enter mm/dd/yy) 


Press the ENTER key to process; enter the END command to terminate. 
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PSMDAY — This table display panel displays all activities that have the date you specified on the PSMSET 


panel. 


JATTR DEFAULT (%+@) 
/* displayed by PSMXDISP EXEC 
/* '@' used for input, because '_' used on panel 
! type(output) intens(low) just(left ) pad(' ') 


# type(output) intens(low) just(right) pad('0') 
) BODY 
aaa Personal Scheduling: Manager: Daily Scnedule —-—=-==——4= 
%COMMAND ===>@ZCMD SCROLL ===>@AMT 
+ % Things to do: + 
++ 
+ Date: #MT+/#DY+/#YR+ 
+ 
*Time Description Notes 
+ 
)MODEL ROWS(SCAN) /* Format table; scan for rows. 
fz. tHe PLZ +12 
JINTT 
-HELP = PSM4 
-ZVARS = '(HR MN DESC NOTES)' /* Replace 'z's with variables. 


SAMT = PAGE /* Set a scroll amount for this panel. 
) END 
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Here’s what the PSMDAY panel looks like: 


Personal Scheduling Manager: Daily Schedule 
COMVAND ===> _ 


Things to do: 
Date: 00 / 00 / OO 


SCROLL 


~==> PAGE 


Description Notes 
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PSMDEL — On this data entry panel, you enter information about a calendar entry you want to delete. 


JATTR DEFAULT (%+_)} /* displayed from PSMXDEL EXEC i 
# TYPE(input) INTENS(high) JUST(right) PAD(0O) 
/* input field right-justified, padded with 0O ae 


na Persone! Scheduling Manager: Delece Calendar Entry “<qS=s====—+ 
COMMAND ===> _ZCMD + 


Enter the date and time of the entries you want to delete. Leave the 


Date %===>#MT+/#DY+/#YR+ (Enter mm/dd/yy) 
Time %===>#HR+: #MN+ (Enter hh:mm in 24-hour format) 


~+ttteeeetetet+r+r+r+e+tettett+tt+e 


INIT 
&ZCMD = ' ! /* initialize command line to blank ¥*/ 
-HELP = PSM3 
) PROC 
VER (&MT,NONBLANK, RANGE,0O1,12,MSG=PSMO0O0O) /* verify month #*/ 
VER (&DY,NONBLANK, RANGE,01,31,MSG=PSMO01) /* verify day * / 
VER(&YR,NUM,MSG=PSMO02 ) /* verify year 7 
VER (&HR, RANGE ,00,23,MSG=PSMO03) /* verify hour a 
VER(&MN, RANGE ,OO,59,MSG=PSM004) /* vwerify minute */ 
) END 
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time field as%00:00+to delete all calendar entries for the date entered. 


Enter thesEND+command to exit this function without deleting the entries. 
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Here’s what the PSMDEL panel looks like: 


Personal Scheduling Manager: Delete Calendar Entry 
COMMAND ===> 


Enter the date and time for the entries you want to delete. Leave the 
time field blank to delete a!| calendar entries for the dote entered. 


00 / 00 / 00 (Enter mm/dd/yy) 
00 : OO (Enter hh:nm in 24-hour format) 


Enter the END command to exit this function without deleting the entries. 
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PSM1 — This Is the first in a Series of tutorial panels that give you information about PSM. We show you 
this one as an example — you can use it as a guide to create the others, which are mentioned in some of 
the panel definitions you’ve already created, and in the messages you define in the next chapter. 


SELECTION ===> _ZCMD + 


The Personal Scheduling Manager (PSM) helps you keep 
track of your daily schedule. You can add or update 
calendar entries, display your schedule for the day, 
print a report of your activities, and delete days from 
the calendar. 


You can look at the following topics in sequence, or select 
each one by number: 


$1+ Enter or update activity information 
%2+ Display calendar for the day 
$3+ Print activity report 
%4+ Delete entries from calendar 
)PROC 
&ZSEL = TRANS( &ZCMD 
1, PSM2 
2,PSM3 
3,PSM4 
4,PSM5 
Bg a 
) 
) END 
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Here’s what the PSM1 panel looks like: 


The Personal Scheduling Manager (PSM) helps you keep 

track of your daily schedule. You can add or update 

calendar entries, display your schedule for the day, 

print a report of your activities, and delete entries 
from the calendar. 


You can look at the following topics in sequence, or select 
each one by number: 


Enter or update activity information 
Display calendar for the day 

Print: derivity report 

Delete entries from calendar 


Note: Once you’ve created and tested this panel, try testing the PSM panel once again. This time, when 
the PSM panel is formatted, press PF1 (HELP). You’ll see PSM1! If you’re wondering why, look at the )INIT 


section of PSM. 
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This chapter shows you how to create and test the message definitions for the PSM application. 
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Writing MeESSage DEINNMIGNS: 26264 4sg56 5426082 e beg ERG EE aS EEE EER ESE Od eee sees geee es 

Testing MeSSAQ06S:. «vies o¢o44 os4 sd eee Rede SO oe H44 dA SERS SE ROO EYE SESS eee HE ERS 
TeSting MeSSaGeS ONY 46.4554 44n4eo.0.bbeeaat eee SAR Ae RAR eRe eee eo ete ee ees 
Testing: Messages and PanelS. 222424445. 0h0b% ¢ odd See a Pe de eRe KR EEG WERE SER ee REDD 
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Writing Message Definitions 


Select the Edit option from the ISPF/PDF Primary Option Panel. On the edit entry panel, type the CMS file 


ID shown below, and press the ENTER key. 


ISPF LIBRARY: 
PROJECT 


===> 


(Blank for member selection list) 


GMS FILE: 
FILE ID ===> PSMOO MSGS A_ 
MEMBER ===> 
IF NOT LINKED, SPECIFY: 
OWNER'’S ID ===> DEVICE ADDR. 
READ PASSWORD ===> UPDATE 
PROFILE NAME (Blank 


INITIAL MACRO EDITOR 
LOCK XEDIT OPTIONS 


FORMAT NAME MIXED MODE 


FOR NEW CMS FILE OR ISPF MEMBER: 
RECFM ===> 


===> 


(CF or Vj 


LINK ACCESS MODE ===> 


(PDF or XEDIT) 
(YES or NO) 


(YES or NO) 
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On the command line of the next screen, type: 


profile 8 


This is the default edit profile for messages. Notice that sequence numbering is NUMBER ON STD. Enter 
the UNNUM command to set sequence numbering to NUMBER OFF. From now on, when you edit a file with 
a filetype of MSGS, the sequence numbers won’t appear. Type: 


reset 


to get rid of the profile. Then, type: 


model 


to put the message model in the PSMOO file. 


EDIT --- PSMOO MSGS A 
COMVAND ===> 


COLUMNS 001 072 
SCROLL ===> CSR 


BOI OOO IOI GO lok iio GiGi ic ice TOP OF DAT A 22 RRR kik i ONO IR I ak Fi ai ke keke aie ak 


000001 MSGX3990 
000002 


=NOTE= MSGX990 = 
=NOTE= SHORT~MSG - 
=NOTE= LONG-MSG_ - 


5-4 


=NOTE= PANELID = - 
=NOTE= 
=NOTE« 
=NOTE= 
=NOTE= NO x 
=NOTE= 


ORK OIG OF IIR Ik koi ak kk kak iio ii icici BOTTOM OF DAT A deok 2 oe koe ok ok si ak ikki ikki ak ake aie ake ake a 
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"SHORT MSG IN QUOTES .HELP=PANEL ID . ALARM=NO 
"LONG MESSAGE MUST ALSO BE IN QUOTES - SECOND LINE 


IS A MESSAGE ID (1-5 ALPHA, 3 NUMERIC) 

OPTIONAL, MAXIMUM OF 24 CHARACTERS. 

REQUIRED, MAXIMUM OF 79 CHARACTERS. 

SPECIFIES A TUTORIAL PANEL ID. THE PANEL IS TO BE 
DISPLAYED IF THE USER REQUESTS HELP SUPPORT. IF 

* TS SPECIFIED, THEN THE TUTORIAL PAGE WILL BE 
WHATEVER WAS SPECIFIED IN THE PANEL DEFINITION. 
NO = DO NOT SOUND AUDIBLE ALARM 

YES = SOUND AUDIBLE ALARM 
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Using the model as a guide, type in these messages: 


PSMOOO 
"VALID 


PSMOO1 
"VALID 


PSMOQ2 
"ENTER 


PSMOO 3 
‘VALID 


PSMOO4 
"VALID 


PSMOO5 
"A ROW 


PSMO06 


'USE OPTION 1 (ENTER) 


PSMOO7 


"ENTER VALID MONTH ; . HELP=* - ALARM=YES 
MONTHS ARE NUMBERS FROM O1 - 12.' 

"ENTER VALID DAY : . HELP=* - ALARM=YES 
DAYS ARE NUMBERS FROM O1 - 31.' 

"ENTER VALID YEAR ; . HELP=* . ALARM=YES 


THE LAST TWO DIGITS OF THE YEAR (85 FOR 1985, ETC.)' 


"ENTER VALID HOUR - HELP=* - ALARM=YES 
HOURS ARE NUMBERS FROM 00 - 23.' 

"ENTER VALID MINUTE : . HELP=* - ALARM=YES 
MINUTES ARE NUMBERS FROM OO - 59.' 

'TASK COMPLETED : . HELP=* . ALARM=NO 
HAS EITHER BEEN UPDATED OR ADDED TO THE TABLE.' 

‘NO SCHEDULE FOUND ' . HELP=* - ALARM=YES 


“FUNCTION. SUCCESSFUL . HELP=* . ALARM=NO 
'THE REQUESTED FUNCTION ENDED SUCCESSFULLY. ' 
PSMOO8 'REQUEST CANCELLED ; . HELP=* - ALARM=YES 
"REQUEST WAS CANCELLED DUE TO "END" OR ERROR ON PANEL.' 
PSMOO9 'DATE OR TIME NOT FOUND ' . HELP=* - ALARM=YES 


'THE DATE OR TIME WAS NOT FOUND IN THE CALENDAR. ' 


Press PF3 to save this file. 
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In Chapter 4, “Defining Panels,” you typed some message numbers in the )PROC sections of a few of the 
panels. Let’s look at the )PROC section of the PSMDEL panel once again. 


) PROC 
VER(&MT,NONBLANK, RANGE ,O1,12,MSG=PSMOOO) /* verify month */ 
VER(&DY,NONBLANK,RANGE,O1,31,MSG=PSM001) /* verify day * 7 
VER(&YR,NUM,MSG=PSMO0O2 ) /* verify year * / 
VER(&HR, RANGE ,00-23 ,MSG=PSMOO3) /* verify hour ed 
VER(&MN, RANGE ,O0O,59,MSG=PSM004) /* verify minute */ 


The statements in the )PROC section are called VER statements (short for “verify”). Their function is to 
make sure that all input is valid. If there is an error in the input, the message associated with the message 
number on the VER statement gets displayed in the short message area of the panel. 


For example, message PSMO000 (ENTER VALID MONTH) would be displayed in the short message area of 


the PSMDEL panel if someone entered a number for the MT (month) variable that was not within the range 
from 01 to 12, inclusive. 
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Testing Messages 
There are two ways to use Dialog Test to test messages: 
@e To make sure the message is displayed properly 


@ To make sure the correct message is displayed in response to incorrect input entered on a particular 
panel. 


Testing Messages Only 


To see only the text of the message, select Dialog Test option 7.2 (Panels). Enter the message ID as 
follows: 


PANEL NAME 


MESSAGE ID ==> PSMOOO0_ (Optional) 


CURSOR (Optional) 


CURSOR POSITION (Optional) 
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The result looks like this: 


MESSAGE DISPLAY PANEL ENTER VALID MONTH 


This panel is used to display your specified message. 
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Try testing each of the messages in the PSMO0 MSGS file. Press PF1 to get the long message format to 


appear on the screen. 


MESSAGE DISPLAY PANEL ENTER VALID MONTH 


COMMAND ===> _ 


VALID MONTHS ARE NUMBERS FROM 01 - 12. 
This panel is used to display your specified message. 
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Testing Messages and Panels 


When you want to make sure the right message is being displayed on a panel, you also use Option 7.2. 


However, you type in just the name of a panel, and, when the panel is displayed in proper format, try 
entering some incorrect data to see if you get an error message, like this: 


Personal Scheduling Manager: Set Date and Time ENTER VALID MONTH 
COMMAND ===> 


Enter the date and the time of day: 


Date = 99 / 04 / B85 (Enter mm/dd/yy) 
Time a 00 : 00 (Enter hh:mm in 24-hour format) 


Press the ENTER key to process; enter the END command to terminate. 


And, if you press PF1, you get the long message as well. 
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Helpful Hints 


Every VER (verify) statement should have an associated error message; otherwise, the system default 
error message will be used. 


Use vocabulary familiar to the person who will be reading the messages. 
Make the messages active, rather than passive. 


For example, instead of saying, 


The date field input was entered incorrectly. 


try saying, 


Re-enter the date field information. 


Use the panel’s default message areas. The short message area is the upper right-hand corner of the 
panel; the long message area is the third line of the panel. 


For every error message, set .ALARM = YES. 


When the message is displayed, position the cursor to the field that’s incorrect — it helps users to find 
the errors more quickly. 


Use dialog variables in message text to make messages more applicable to a specific situation. 
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In this chapter, you code and test the functions for the PSM application. 


Chapter 6. Coding Functions 6-1 


Coding aFunction .. 
Testing a Function .. 


Other PSM Functions 
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Coding a Function 


The PSM dialog starts with a selection panel, PSM, which lists the available processing choices: 


e Enter or update activity information 


Display a daily schedule 


Print a daily schedule 

e Delete activity information 

e Exit from PSM. 

If you select one of the first four tasks, a function is invoked to perform the required processing. 

The PSM functions are written in the REXX command procedure language. You could use EXEC 2 to write 


them, or a high-level programming language such as COBOL, PL/I, FORTRAN, or Pascal. ISPF/PDF has 
models that can help you code ISPF service statements in these languages. 
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Function PSMXENT creates a table and puts the activity information you enter into the table’s rows. 
PSMXENT uses the following ISPF services: 


e Table services (used with PSMTABLE) 


TBOPEN — opens an existing permanent table for processing 

TBCREATE — creates a new table, and opens it for processing 

TBSORT — sorts a table 

TBTOP — sets the table’s current row pointer to the top of the table, above the first row 


TBSCAN — searches the table for a row that matches a list of “argument” variables, and retrieves 
the row, if found 


TBMOD — updates a table row, if it exists and if search keys match; otherwise, adds a new row to 
the table 


TBCLOSE — closes the table 


e Display services 


DISPLAY — reads panel definitions, initializes variables, and displays panels (and messages, if 
required). In this function, panels PSMDISP and PSMENT are displayed. 


SETMSG — constructs a specified message from the message file (in this case, PSMO0 MSGS A). 
The message is Superimposed on the next panel displayed by any ISPF service. This function 
displays the PSM005 message. 


Note: As we did for the panel definitions, we’ve included comment statements with each function to help 


you figure out what’s going on. You can type these statements into your own function files, or you can omit 


them. 


Create your own PSMXENT EXEC file by typing that file ID on the Edit-Entry Panel. Then, type in the 
function as shown on the next page. 
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/* PSMXENT - REXX function to enter values into a table a7 
FREREERS ES RERER EAE RELL SRR RN te eRe eR LOR ee ee RR ee he ae 7 
address 'ISPEXEC' /* set addressability to ISPF services as 
message = ' ' /* initialize messages */ 
setrc = 0 


parse value date('u') with MT '/' DY '/' YR /* today's date */ 
'TBOPEN PSMTABLE' 
if rc = 8 then /* table doesn't exist */ 
do /* create and sort the table */ 
'TBCREATE PSMTABLE keys(HR MN DY MT YR) names(DESC NOTES) ' 
'TBSORT PSMTABLE fields(YR,n,a,MT,n,a,DY,n,a,HR,n,a,MN,n,a) ' 
end 


do while setre = 0 /* @Gisplay panel until END */ 
"DISPLAY panel (PSMDISP)' /* panel to set date/time */ 
if rc = O then /* no errors from panel Sf 
do 
entre = 0 
'TBTOP PSMTABLE' /* begin table search for row with */ 
'TBSCAN PSMTABLE arglist(DY,MT,YR,HR,MN)' /* date, time*/ 
if rc = 8 then /* row does not exist */ 
do 
desc = ' ! /* initialize panel fields */ 
notes = ' ! 
end 
do while entre = 0 /* modify table entry ay i 
"DISPLAY panel (PSMENT)' /* panel to enter activities */ 
entre = rc j? at END; exit. loop */ 
if command = 'CANCEL' then /* CANCEL command entered */ 
entre = 10 /*®* set return code to exit */ 
else if entre = 8 then /* END - save data ls 
do /* modify or add row to a 
‘TBMOD PSMTABLE order' | table in sort order */ 
if rc = 0 | re = 8 then /* row added or updated clef 
message = 'PSMOO5' /* set completion message */ 
end 
end 
end /* end display loop i 
else /* END on panel or error occurred */ 
setrc = rc /* exit loop * / 
if message 4= ' ' then /* if message set xf 
do 
'SETMSG msg('message')' /*display message on next panel*/ 
end 
end /* end display loop * / 
"TBCLOSE PSMTABLE'! 
exit O 
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Testing a Function 


To test the PSMXENT function, select Option 7.1 from the ISPF/PDF Primary Option Panel, and type: 


Ste ae INVOKE DIALOG FUNCTION/SELECTION PANEL ------------------ 


COMMAND ===> 
INVOKE SELECTION PANEL: 

PANEL ===> OPT ===> 
INVOKE COMMAND: 

CMD ===> PSMXENT__ 

LANG ===> (APL or blank) 
INVOKE PROGRAM/SHARED SEGMENT: 

PGM =Sn> DCSS ===> 

PARM ===> 

EXTENDED PLIST ===> NO 

NEWAPPL ===> NO ID ese5 
NEWPOOL ee=> NO PASSLIB ===> NO 
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When the function’s processing sequence begins, you can enter data (try entering correct and erroneous 
data, to see if you get the right error messages). At the end of the testing, you get a message like this: 


---------- INVOKE DIALOG FUNCTION/SELECTION PANEL ------FUNCTION RC=0 
COMMAND ===> 
INVOKE SELECTION PANEL: 

PANEL ===> OPT ===> 
INVOKE COMMAND: 

CMD ===> PSMXENT_ 

LANG ===> (APL or blank) 
INVOKE PROGRAM/SHARED SEGMENT: 

PGM =o DCSS ===> 

PARM ===> 

EXTENDED PLIST ===> NO 

NEWAPPL ===> NO ID ===> 
NEWPOOL s=ax> NO PASSLIB ===> NO 


Ne pssst 
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But, Suppose something goes wrong — maybe you don’t get the proper message. Or, maybe you want to 
double-check that the table was created, and that it looks the way you want it to look. Dialog Test to the 
rescue! 


The TRACES option (Option 7.7) lets you trace dialog service calls and dialog variable use, and puts the 
information in the ISPF log file. You can use the LOG option (Option 7.5) to browse the log file. 


The BREAKPOINT option (Option 7.8) lets you specify places to temporarily suspend processing, So you 
can look at, and even change, the contents of variables or table rows. Then, you can let processing 


continue with the new data, and see what happens. 


For more information about the other Dialog Test options, see ISPF/PDF Guide. 
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Other PSM Functions 


The rest of the PSM functions are shown on the following pages, along with explanations of the ISPF 
services they use. 


Note: Once we describe an ISPF service as it’s used in one function, we don’t describe it again in the 
writeups for the others (unless it’s used differently somewhere else). 
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Function PSMXDISP displays daily schedules. PSMXDISP uses the following ISPF services: 
e Table services (used with PSMTABLE) 
TBOPEN 
TBVCLEAR — sets to NULL dialog variables that correspond to variables in the table. 
TBSARG — establishes a search argument for use with TBSCAN or TBDISPL. 
TBCLOSE 
e Display services 
DISPLAY — displays PSMSET and PSMDAY panels 
TBDISPL — combines information from a panel definition with information in tables to display 
selected table rows and allow users to identify rows for processing. In this function, TBDISPL 


combines information from the PSMDAY panel and the PSMTABLE table. 


SETMSG — PSM006 and PSMO08. 
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/*  PSMXDISP - REXX function to perform the display of the a 
/* daily schedule. * 


J HEEREREE ELE EERE ERS RE REE EES ee Oe ee eae 


address 'ISPEXEC' 


/* set addressability to ISPF services wy 
message = ' ! /* initialize messages */ 
"TBOPEN PSMTABLE' /* open the table x 7H 
if rec = 8 then f*= 2£ table noc found *7 

message = 'PSMOO6' 

/* set message — table doesn't exist Le 
else /* sort table uae 4 

if re = O then /* table found & opened*/ 


do 
parse value date('u') with MO '/' DA '/' YE 
f/*® S60 dace to today */ 


"DISPLAY panel (PSMSET) ' /* display panel to set date */ 
if rc n= 0 then /* error or END on panel mp 
message = 'PSMOO8' 
/* set message — no changes made Le 4 
end 
if message = ' ' then 7/*® 1If No errors occurred */ 
do 
/* display items for one day in order e7 
'TBVCLEAR PSMTABLE' 
/* clear table variables for TBSARG oy 
YR = YE /* set year for search (TBSARG) oe 
MT = MO /* set month for search (TBSARG) ae 
DY = DA /* set day for search (TBSARG) is 
'TBSARG PSMTABLE namecond(YR,eq,MT,eq,DY,eq)' 
/* TBDISPL — use only rows with reguested date at 
'TBDISPL PSMTABLE panel(PSMDAY)' /* table display panel */ 
'TBCLOSE PSMTABLE' 
end 
if message 4= ' ' then /* if messages are set aa 
"SETMSG msg('message')' /* display error messages mf 
exit O 
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Function PSMXPRT prints an activity report. Here are the ISPF services used by PSMXPRT: 
@ Table services (used with PSMTABLE) 
TBOPEN 
TBSCAN 
TBCLOSE 
@ DISPLAY — PSMSET panel 
e File tailoring services (used with file tailoring skeleton PSM SKELS) 


FTOPEN — prepares file tailoring process, specifies whether a temporary file is to be used for 
output 


FTINCL — specifies skeleton to be used, and starts tailoring process 
FTCLOSE — ends the file tailoring process. 


@e SETMSG — PSMO006, PSM007, PSMO008, and PSMOO9. 
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/*  PSMXPRT - REXX function to print the activity report. */ 


JRETELEE ALL AS EAA ROA RSE AAR eS Re eee ee  P 


address 'ISPEXEC' /* set addressability to ISPF services */ 
message =! ! /* initialize messages ae 
fileout = 'PSMTODAY FTOUT A' /* set file ID for output ae 
"TBOPEN PSMTABLE'! /* open table ard 
if rc = O then /* if no errors from TBOPEN a 
do 
parse value date('u') with MO '/' DA '/' YE 
/* set date to today a 
'DISPLAY panel (PSMSET) ' 
/* panel to set date to print al 
if rc = O then /* enter key from panel and no errors */ 
do 
MT = MO /* set month from panel for scan “7 
DY = DA /* set day from panel for scan rd 
YR = YE /* set year from panel for scan Le 
'TBSCAN PSMTABLE arglist(MT DY YR) noread' 
/* search for date ie | 
if re 1=0 then /* date not found in table */ 
message = 'PSMOO9!' /* set message for no date usr 
end 
else /* END or error from data panel ue 
message = 'PSMOO8' /* set request canceled message wf 
'TBCLOSE PSMTABLE' /* close before file tailoring es 
end 
else 1f re = 8 then /* table not found Laie 4 
message = 'PSMOO6' /* set message for create table yy 
if message = ' ' then /* no errors so far ae 
do /* file tailoring uses ISPFILE FILEDEF *% 7 
'FTOPEN' /* open for file tailoring a 
'FTINCL' PSM /* use file tailoring skeleton 'PSM' a A 
'FTCLOSE name (PSMTODAY)' /* put output to this file x7 
address 'CMS' 'PRINT! fileout 
j/*® DYInC. OUTPUT USing CMS print oy 
if rc = O then /* if no errors from print then ue 4 
message = 'PSMOO7' /* set message for success * ff 
end 
if message = ' ' then /* if error occurred at 
"SETMSG msg('message') ' /* set message for display ied 


exit O 
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The file tailoring skeleton PSM SKELS formats the rows in PSMTABLE that you want to print as an activity 
report. 


File tailoring skeletons can seem confusing at first, but once you’ve reviewed this one and designed one or 
two of your own, you'll see that they aren't so bad after all. ISPF/PDF has edit models for skeleton 
statements, and you can always refer to them to make sure you’re correct. 


In the PSM skeleton, the lines that begin with }CM are comments; the skeleton ignores them when it 
formats an output file. 


The line that reads 


)TB 10 40 


sets up tabs that place the output in columns across the page. To see how the columns come out, lock at 
the sample output on page 6-16. 


The JBLANK statement controls vertical spacing. For example, 


)BLANK 1 
puts a biank line in the output file, so the printout will have an extra space between lines of text. 


The )DOT and )JENDDOT statements mark the group of statements that actually control what table is read, 
what entries are selected, and how those entries are formatted. 


The )SEL statement is like an IF/THEN statement; only those entries that match the requested date are 
chosen for the activity report. 


The exclamation point (‘!’) is the tab character. When the skeleton is formatting the activity report and 
encounters an exclamation point, it moves to the next tab position and continues printing. 
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)}CM THIS SKEL IS USED BY THE REXX EXEC PSMXPRT. 
})CM IT IS USED TO PRINT AN ACTIVITY REPORT. 
)}CM FORMAT THE OUTPUT, USING TB TO SET TABS 
)CM AND BLANK TO SET SPACES. 
)? 10: 40 
raraNe 4 
)CM ENTER YOUR NAME IN THE FOLLOWING LINE 
ACTIVITY REPORT FOR your name 
)BLANK 1 
&MO/&DA/&YE 
BLANK 1 
A SET THE HEADINGS FOR THE COLUMNS 
('!t* IS THE TAB CHARACTER) 

er INOTES 

| 


DOT PSMTABLE 

CM USE ONLY THE ENTRIES FOR THE REQUESTED DATE 
SEL &MT = &MO && &DY = &DA && &YR = &YE 

1\&DESC !&NOTES 

) ENDSEL 

) 


) 

) 

)C 

! 

: ———— 
)BLANK 1 
) 

) 

) 


ENDDOT 
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Here’s an example of some output that was formatted by the PSM skeleton. 


Activity 
Meeting 
Coffee Break 
Lunch 

Review draft 
Coffee break 


Go home 


Papas eri eoss 
S 
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Activity Report for F. Simpson 


Notes 


Remember to go 
Keep it short ~ 45 min. 


Read War and Peace 


Try to stay awake 
Another short one 


A hard day at work? 


| 
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A Helpful Hint 


If you’re testing a function that uses a file tailoring skeleton to generate output, you can use ISPF/PDF’s 


Browse option (Option 1) to look at the file tailoring output. 


Select Option 1 from the Primary Option Panel and enter the name of the file tailoring output file on the 


Browse-Entry Panel. To look at a PSM activity report, enter: 


COMVAND ===> 


ISPF LIBRARY: 
PROJECT 
GROUP = a> 
TTP 


(Blank for member selection list) 


PSMTODAY FTOUT A_ 


(for MACLIB or TXTLIB) 
DB, SPECIFY: 


DEVICE ADDR. ===> LINK ACCESS MODE ===> 
READ PASSWORD 


MIXED MODE (SPECIFY YES OR NO) 


FORMAT NAME 


Press the ENTER key to view the contents of the file. 
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Function PSMXDEL erases values from a table. This function uses the following ISPF services: 
e® Table services (used with PSMTABLE) 

TBOPEN 

TBSCAN 

TBDELETE — deletes a row from a table. 

TBCLOSE 
e DISPLAY — PSMDEL panel 


® SETMSG — PSMO006, PSMO007, and PSMOO9. 
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/* PSMXDEL - REXX function to delete the rows ina table that */ 
* 


7* correspond to the requested date and time. 
f PRE EEE EAL EE LEER EL EEE EEL eS ES EK ee ae aE A eK ee ee tee eee ef 


address 'ISPEXEC' 
t t 


/* set addressability to services*/ 


message = /* initialize error message ay 

'TBOPEN PSMTABLE' 

if rc = 8 then /* table doesn't exist * f 
message = 'PSMOO6' /* set message for no table wy 

else if re = O then /* table exists se 


do 


parse value date('u') with MT '/' DY '/' YR 


/* set date 


'DISPLAY panel (PSMDEL) ' 


to, Today x / 
/* panel to set date and time a A 


if rc = O then /* enter key pressed, no errors */ 
do 
1f HR m= ' !' then 
delete = ‘'one' /* delete only one entry my 
fndre = 0 
do while fndre = 0 /* loop while row found = 
if delete = 'one' then f* only d@elete one row Li 
'TBSCAN PSMTABLE arglist(MT DY YR HR MN)' 
/* find row with time & date */ 
else /* delete whole day ey. 
'TBSCAN PSMTABLE arglist(MT DY YR)' 
/* find next row with requested date */ 
if re = O then /* row found by TBSCAN * 
do 
'TBDELETE PSMTABLE' /* delete table row ey 
if rc = O then * row successfully deleted a 
message = 'PSMOO7' /* set information message J 
end 
else if rc = 8 then /* no more items found by TBSCAN */ 
do 
fndrc = re /* exit loop ata 
if message = ' ' then /* no message if delete ok */ 
message = 'PSMOO9' /* set message to not found */ 
end 
end /* end scan/delete loop Leg 
end 
'TBCLOSE PSMTABLE'! 
end 
if message 74= ' ' then /* if error occurred es 
'SETMSG msg('message') ' /* display message ae 


exit O 
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Chapter 7. Putting It All Together 


In this chapter, we finally combine all the dialog elements you’ve been busy creating. We use Dialog Test 
ol C5) i al Moto] us] ol (-1¢o mel r- aero bur Late MJ ave) mnyZolem aroha Comr-(e CoM (al-Molf-lfelom col cal- Mis) oJ om ViE-Vy¢-1a-Ve)e) i [er-tikela ls rll] Macye 
you can run it whenever you like. We explain how to invoke ISPF to run the dialog, and give you some 
Hat) aU Tei tfe]at-me-VelelUiang-Scerelel fale mial-MiU laced ((elarcmiceliimexelualiar-lalom olaeler-tol0]a=\m Coll elgelel e-Uinch 
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An Overview 


The diagram below shows how each element fits into the PSM dialog. 


PSMXENT function 
PSMDISP and 
PSMENT panels 


PSMOO messages 
PSMTABLE 
Dialog variables 


e 
4 
Q 
~ 
~ 

& 

A 
S 

pP 
wy 
oF 
PSM Task 
Selection 
Panel PRINT 
Oo 
& 
é 
%% 

a 

# 

cA 


Exit from PSM 


PSMXDISP function 
PSMSET and 
PSMDAY panels 
PSMOO messages 
PSMTABLE 

Dialog variables 


PSMXPRT function 
PSMSET panel 
PSMOO messages 


PSM skeleton 
PSMTABLE 
Dialog vanables 


PSMXDEL function 
PSMDEL panel 
PSMOO messages 
PSMTABLE 

Dialog variables 
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Testing the Whole Dialog 


Select option 7.1 from the ISPF/PDF Primary Option Panel. On the next panel, type: 


INVOKE DIALOG FUNCTION/SELECTION PANEL 
INVOKE SELECTION PANEL: 
PANEL 


[INVOKE COMMAND : 
CMD 


LANG ===> 


INVOKE PROGRAM/SHARED SEGMENT : 


===> 


PARM = ===> 
EXTENDED PLIST ===> NO 


NEWAPPL 


NEWPOOL 


Why the panel name? Because the PSM dialog processing begins with a panel. If the processing began 
with a function, you’d enter the name of the function in either the CMD field (for an EXEC) or the PGM field 


(for a program). 


When the PSM task selection panel is displayed on the screen, you can select each one of the options and 
make sure everything works. 
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Suggestions for Improving the PSM Dialog 


Now that you’ve had some practice writing an ISPF dialog, you might want to try to make some of these 
improvements to the PSM dialog. 


@ Add more error-checking capabilities and confirmation messages. 

e Print or display a monthly list of activities. 

@ Modify the PSM SKELS file tailoring skeleton to include the time field. 
e If you have a color terminal, add some color to the PSM panels. 


e For achallenge, create a table display panel that allows you to add rows to the table. 
Adding the Dialog to the ISPF Master Application Menu 


To add the PSM dialog to the ISPF Master Application Menu, you must first make a copy of its panel 
definition. That file is either in ISPF’s panel library, ISPPLIB MACLIB, as member ISP@MSTR, or it is a 
CMS file named ISP@MSTR PANELS. (Its name depends on whether the ISPF and ISPF/PDF product files 
were specified as MACLIBs or as CMS files when the products were installed.) 


Use the Move/Copy Utility, iSPF/PDF Option 3.3, to put the copy in a CMS file called ISP@MSTR PANELS A. 
(If you don’t recall how to use Option 3.3, look back at the Helpful Hint on page 4-15.) 


Next, edit the ISP@MSTR PANELS A file. You have to insert two lines in the panel definition: 
1. Inthe )BODY section, add a line to make PSM a selectable option. 


2. Inthe )PROC section, add a line to invoke the PSM dialog. 
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aa LSP MASTER APPLICATION MENU <== —>=s=eee4 
SOPTION ===> _ZCMD 

% ‘Po RID = 
% 1 +SAMPLE1 - Sample application 1 +TIME = 
% 2 +PSM - Personal Scheduling Manager +TERMINAL - 
% a At - (Description for option 3) +PF KEYS - 
% ae - (Description for option 4) 

% De, he - (Description for option 5) 

% y FEM - Terminate ISPF using list/log defaults 


+Enter%END+command to terminate ISPF. 


° 
Ke) 


jo 
. HELP = ISPOOO05 /* Help for this master menu a 
&ZPRIM = YES /* This 1S a primary option menu x 
) PROC 


&ZSEL = TRANS( TRUNC (&ZCMD,'.') 
1,'PANEL(ISP@PRIM)' /* Sample primary option menu */ 


2,'PANEL(PSM) ' /* Personal Scheduling Manager */ 
JS ERELAARL EAL ELE RR RA ee eT ae Ree A ee ha ae ae a te ae ee a ce Ry ee 
i ue 
/* Add other applications here. sf 
ae ay 
f REE EES eR ae MD Ae ee eae a ee Oe A eR Re ef 
/* Following shows how to code an invocation of the a 
/* ISPF Program Development Facility, where "n" is ef 

e desired selection number: 
/* the d d lect b =f 
a ey 
/* n,'PANEL(ISR@PRIM) NEWAPPL(ISR)' a 

* * 


J CELE PERERELAL LE RRA ON Oe HS A RR ye te ake ee te AA ee ae oe 7 
' ' i] ' 
f 
cp Ee 
ee) 
) END 
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& ZUSER 
&ZTIME 
&ZTERM 
&ZKEYS 


BD 


Use Dialog Test Option 7.2 to make sure the panel displays properly. 


ISPF MASTER APPLICATION MENU 


USERID JUDITH 
SAMPLE 1 Sample application 1 TIME 16:39 


PSM Personal Scheduling Manager TERMINAL o278 

. (Description for option 3) PP REYS 24 
(Description for option 4) 

. (Description for option 5) 

EXIT Terminate ISPF using list/log defaults. 


Enter END command to terminate ISPF. 
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Invoking ISPF to Run a Dialog 


After your terminal displays the CMS “Ready” message (R;), type: 
ISPSTART 


(or whatever command your organization uses) on the CMS command line. 


Because you typed only the ISPSTART command, with no parameters, the ISPF Master Application Menu 
appears on the screen. When you want to run a dialog, select it from among the ones listed on the panel by 
typing the dialog’s option number on the command line. 


If you know which dialog you want to run, and you don’t need to look at the ISPF Master Application Menu, 

you can add keywords to the ISPSTART command. To do it this way, you have to know whether the dialog 

begins with either a selection panel or a function (a command procedure or a program), so you can specify 
the correct keywords. 


For example, if the first thing the dialog’s processing does is display a panel, type: 
ISPSTART PANEL(panel-name) [OPT(option) ] 

If the dialog begins with a function that is written as a command procedure, type: 
ISPSTART CMD(command-procedure-name) 

If the dialog begins with a function that is written in a high-level programming language, type: 
ISPSTART PGM(program-name) [PARM(parameters) ] 

The PSM dialog begins with a selection panel, so you type: 


ISPSTART PANEL(PSM) 
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Re-coding the Functions as Programs 


You can re-code the PSM dialog functions from REXX to a programming language such as COBOL, Pascal, 
PL/I, or FORTRAN. 


Whether you use command procedure languages or high-level programming languages for your functions 


depends on what kind of application you are writing, and whether it has to run on other operating systems 
(MVS or VSE). 


Command procedures work well for applications with simple processing, a small number of input/output 
operations, and limited arithmetic manipulation. They take less time to develop than programs do, so you 
can quickly create rough outlines of the application’s processing, and refine things as you go along. 


Command procedure languages are specific to the operating system, so you can’t transfer them to another 
operating system. 


Programming languages are better suited for applications with extensive input/output processing and 
arithmetic manipulation, or special input validation processing. They execute faster than command 


procedures do, but they take longer to develop. And, of course, programming languages work across 
operating systems. 
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You can use ISPF/PDF’s Option 4, FOREGROUND, or Option 5, BATCH, to compile programs. The 
Foreground Selection Panel presents the following choices: 


FOREGROUND SELECTION PANEL 


System assembler Linkage editor 

OS/VS COBOL compiler Load 

VS FORTRAN compiler SCRIPI/VS 

PL/I checkout compiler COBOL interactive debug 
PL/[ optimizing compiler FORTRAN interactive debug 
PASCAL/VS comp! ler Member parts list 


SOURCE DATA PACKED ===> (YES or NO) 
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Suppose you select COBOL. The next panel you see is the Foreground COBOL Compile panel. Enter the 
name of your COBOL program like this: 


ISPF LIBRARY: 
PROJECT = 


| oe | 
vvvyv 


hou don 


CMS FILE: 


FILE ID ===> psmxent cobo! a_ 
IF NOT LINKED, SPECIFY: 
OWNER'S ID ===> 

READ PASSWORD ===> 


COMPILER OPTIONS: : 


ADDITIONAL CONCATENATED MACLIBS: 


==a=> 


==> 


(Blank for member selection lis 


DEVICE ADDR. ===> LINK ACCESS MODE ===> 


UPDATE PASSWORD ===> 


(TEST or NOTEST) 


Press the ENTER key. When foreground processing is complete, you see a “MORE...” message in the 
lower right corner of the screen. If the foreground processor generated an output listing, the listing file is 
displayed automatically in Browse mode. After you review the Browse output, press PF3. 
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On the next panel, specify the foreground print options you want to use. 


PK - Print file and keep 
PD - Print file and delete 


If END command is entered, file is kept without printing. 


FACE 


(D: 


SPOOL OPTIONS: 


NUMBER OF COPIES == 
BIN NUMBER = 
3800 KEYWORDS == 


USER/MACHINE ID == 
NODE/LINK ID == 


FOR SPOOLING TO ANOTHER USER OR MACHINE: 
TAG TEXT = 
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> 
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FOREGROUND PRINT OPTIONS 


SPOOL CLASS 
"FOR' USER 


K - Keep file (without printing) 
D - Delete (erase) file (without printing) 
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To use batch processing, select the appropriate language from the list of choices on the Batch Selection 


Panel: 


SELECTION PANEL 


System assembler PASCAL/VS compiler 
OS/VS COBOL compiler Linkage editor 


VS FORTRAN compiler Load 
PL/1] checkout compiler Member parts list 
PL/I optimizing compiler 


SOURCE DATA PACKED ===> (YES or NO) 


BATCH JOB INFORMATION: (Verify before proceeding) 


(Your CMS user id automatically becomes your batch job user id 


BATCH MACHINE 1D ===> 


JOB STATEMENT INFORMATION: 
ACCOUNT NUMBER 
JOB NAME 


YOUR A-DISK READ PASSWORD: 


===> 


nd 
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lf you select Option 5, PL/I optimizing compiler, the following panel appears. 


be compiled, using a filetype of PLI or PLIOPT. 


BATCH PL/I OPTIMIZING COMPILE 


ISPF LIBRARY: 
PROJECT = 


===> 


VvvVNVvVM 


(Blank for member selection [ist) 


CMS FILE: 
FILE ID ===> psmxent pliopt a_ 
IF NOT LINKED IN YOUR LOGON DIRECTORY, SPECIFY: 
OWNER'S ID ===> DEVICE ADDR. ===> 


READ PASSWORD ===> 
COMPILER OPTIONS: 


SS=> 


ONAL CONCATENATED MACLIBS: 


I 
> ===> 


ADD IT 


LINK ACCESS MODE ===> 


Enter the name of the file to 


For more information on the Foreground and Batch options, refer to /SPF/PDF Guide. 
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Congratulations! You've just written your first ISPF dialog. We hope you found this Primer helpful and 
interesting. And we hope it has encouraged you to learn more about ISPF and ISPF/PDF. 
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